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This report is subdivided into three sections as follows: 

Sectional Journal Papers and Technical Reports of Research Projects directly 
related to and partially supported by the research grant. 

1.1. "Stress Waves Resulting from Hypervelocity Impact," AIAA paper 
No. 69-355, Presented at the 1969 AIAA Hypervelocity Impact 
Conference in Cincinnati, Ohio (Authored by R. Madden and T. S. Chang) 
Results from a numerical scheme based on the method of characteristics 
are presented for the axially symmetric, hypervelocity impact of 
similar materials. The analysis is restricted to the early stages of 
the impact of a right circular cylinder on a half space. The resulting 
rarefaction and shock waves produced by the impact are considered as 
discrete wavefronts which divide the impacted zone into regions. 
Numerical diffusion is then controlled by requiring that the values 
of the dependent variables at a given point in the impacted zone to 
depend on only the calculated values at earlier times at points in 
the same region as the point in question. The numerical results give 
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accurate representations of the stress wave profiles (i.e. , rarefaction 
and shock waves) which should be useful as inputs for a later stage 
elastoplastic analysis and/or spallation analysis. The effects of 
"numerical diffusion" on the calculated pressure and flow fields when 
the rarefaction wave is not considered as discrete is investigated and 
the "diffused" results are compared with the more exact analysis. 

1.2. "Nonlinear Waves in a Rate-Sensitive, Elastoplastic Material," 
International Journal of Engineering Science, Volume 10, pp. 353-367, 
1972. (Authored by. E. E. Burniston and T. S. Chang). 

Two classes of closed form solutions of one-dimensional, nonlinear 
waves in a rate-sensitive, elastoplastic material are reported. 

One class of these solutions is self-similar and the other class 
consists of constant speed propagations. Applications of these 
solutions to unsteady motions behind propagating discontinuities are 
also considered. 

1.3. "Curved Characteristics Behind Blast Waves," The Physics of Fluids, 
Volume 15, pp. 502-504, 1972. (Authored by 0. Laporte and T. S. Chang) 
Exact solutions, expressed in closed form in terms of elementary 
functions, are presented for the three sets of curved characteristics 
behind a self-similar, strong blast wave. 

1.4. "On Dispersion and Characteristic Motions of Temperature-Rate 
Dependent Materials ," National Aeronautics and Space Administration 
Report CR-1795, 1971. 

A general three-dimensional theory of a thermomechanical material 
which can be a metallic or polymeric medium, or a structured 
composite, is developed using the modern techniques of axiomatic 
continuum mechanics and the laws of thermodynamics. One-dimensional 
linear spatial gradient temperature-rate dependent theories are 
presented for both thermoviscoelastic and thermoelastic materials. 

The characteristic motions are considered and it is shown that , due 
to the presence of temperature-rate effects, thermal propagation 
speeds have finite values. A comprehensive study of the dispersion 
relations is presented and illustrated graphically for typical values 
of the material constants. Analytical expressions are obtained for 
both high and low frequency responses. It is demonstrated that the 
characteristic speeds coincide with the high frequency asymptotic 
phase velocities in both cases. Physical and numerical limitations 
on the material constants are obtained for stable wave propagations. 

A class of self-similar solutions is obtained for the temperature-rate 
dependent thermoelastic medium using the theory of continuous group 
of transformations. 

1.5. "Comments on Application of Singular Eigenfunction Expansions to the 
Propagation of Periodic Disturbances in a Radiating Grey Gas," The 
Physics of Fluids, Volume 16, pp. 159-160, 1973. (Authored by 

T. S. Chang, K. H. Kim and M. N. Osizik) 

Recently, we have been extending our analysis of sound propagation 
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in dissociative, radiative media to include the effects of scattering* 
It is of interest to note that the set of pertinent integrodifferential 
equations can also be solved exactly using the singular eigenfunction 
expansion technique. 


Section II Computer Programs and Numerical Results of Hypervelocity Impact 
Calculations 

11. 1. Method of Characteristics Calculations and the Computer Code Using 
Orthogonal Polynomial Least Square Surface Fits. 

Very recently, we have developed a new numerical scheme using the 
method of characteristics to calculate the flow properties and pressures 
behind decaying shock waves for materials under hypervelocity impact. 
This procedure is quite different from our earlier methods (see 
paper 1,1). We are now able to replace the time-consuming double 
interpolation subroutines used in paper 1.1 by a technique based on 
Orthogonal Polynomial Least Square Surface Fits. Typical calculated 
results are given and in Tables 1-19. These results are compared with 
the double-interpolation results. The complete computer program is 
also included, 

11. 2. Method of Characteristics Calculations and the Computer Code for 
Materials with Arbitrary Equations of State. 

As reported in our earlier status reports, we have developed a 
numerical code capable of calculating flow properties and pressures 
behind decaying shock waves for materials under hypervelocity impact 
with arbitrary equations of state . For comparison purposes, we have 
made some sample calculations using the new code for impact conditions 
similar to those reported in 1.1, These results are quite encouraging 
and are displayed graphically in Figures 1-3. A listing of the 
numerical code is also attached. 


Section III Fundamental Research on Equations of State and Non-Equilibrium 
Statistical Mechanics Generated by the Research Grant. 

Materials under hypervelocity impact experience extreme changes of 
stresses, strains, and thermodynamic states. We have looked into 
some basic research areas related to (1) the non-equilibrium statistical 
mechanical aspects of heat transfer with discontinuous velocity boundary 
conditions, and (2) the fundamental understanding of the equations of 
state, phase transitions, and critical phenomena of materials under 
extreme thermodynamic environments. Our research efforts along these 
directions are found in the following research papers: 

III.l, "Elementary Solutions of Coupled Model Equations in the Kinetic 
Theory of Gases," International Journal of Engineering Science, 

Volume 12, pp. 441-470, 1974. (Authors: J. T. Kriese , T. S, Chang, 

and C. E. Siewert.) 
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The method of elementary solutions is employed to solve two coupled 
integrodif f erential equations sufficient for determining temperature - 
density effects in a linearized BGK model in the kinetic theory of 
gases. Full-range completeness and orthogonality theorems are proved 
for the developed normal modes and the inf inite --medium Green’s function 
is constructed as an illustration of the full-range formalism. The 
appropriate homogeneous matrix Riemann problem is discussed, and 
half -range completeness and orthogonality theorems are proved for a 
certain subset of the normal modes. The required existence and 
uniqueness theorems relevant to the H matrix, basic to the half-range 
analysis, are proved, and an accurate and efficient computational 
method is discussed. The half-space temperature-slip problem is 
solved analytically, and a highly accurate value of the temperature- 
slip coefficient is reported, 

III. 2. ,T Tri critical Points in Multicomponent Fluid Mixtures," Physical Review, 
Volume A9 , pp. 2573-2578, 1974. (Authors: A. Hankey, T. S. Chang, and 

H, E. Stanley) 

In view of experimental considerations, we give a model-independent 
argument that the novel tricritical points in multicomponent fluid 
mixtures, where three phases simultaneously become critical, are 
points on the boundary of a single two-dimensional surface of critical 
points. This result is corroborated by the Landau model suggested by 
Griffiths. The relationship between these tricritical points and the 
complex n higher-order M critical points proposed to exist in certain 
magnetic systems is elucidated. 

III. 3. "Generalized Scaling Hypothesis in Multicomponent Systems. 

I. Classification of Critical Points by Order and Scaling at Tricritical 
Points," Physical Review, Volume B8, pp. 346-364. (Authored by T. S. 
Chang, A. Hankey, and H. E. Stanley.) 

The goal of this work is to provide an analysis of spaces of critical 
points for multicomponent systems. First, we propose the geometric 
concept of order 0 for critical points; we distinguish it from a 
previous definition of a "mult icritical" point. Specifically, we may 
define the intersection of space of critical points of order 0 to be 
a space of critical points of order (0+1). Ordinary critical points 
are defined to be of order 0 - 2 , so that the tricritical points 
introduced by Griffiths are of order 0=3. We discuss more general 
examples of critical spaces of order 0=3 which are known for a wide 
variety of systems; we also propose several examples of models of 
magnetic systems showing critical points of order 0 = 4 - i.e., 
systems having intersecting lines of tricritical points. The analysis 
of critical and coexistence spaces also provides a new form of the 
Gibbs phase rule suitable for complex magnetic models. Next we define - 
for the critical points of order Q of which examples have been given - 
special directions in terms of which to make a scaling hypothesis. 

We give the hypothesis for simple systems and then for tricritical 
points, and then, in a subsequent paper, part II, the special directions 
are used to make a scaling hypothesis at spaces of critical points of 
any order. Certain predictions (e.g., scaling laws and "single-power" 
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scaling functions) follow in a simple and straightforward fashion 
We consider the scaling hypothesis at a critical space of order 0 
in terms of a group of transformations. We can define a set of 
invariants of the group. It is possible, for (? >^ 3 , to make a 
second scaling hypothesis for the space of order 0-1 using certain 
of these invariants as independent variables. This is advantageous 
because certain "double-power" scaling functions then follow directly; 
these predict that for 0-3, experimental data collapse from a 
volume onto a line. This prediction is to be contrasted with 
ordinary scaling function, which predict that data collapse by only 
a single dimension (e.g., from a volume onto a surface or from a 
surface onto a line). 

III. 4. "Double-Power Scaling Functions Near Tricritical Points," Physical 
Review, Volume B7 , pp. 4263-4266, 1973. (Authored by T, S. Chang, 

A, Hankey, and H. E. Stanley.) 

We introduce invariants of the scaling equation about the tricritical 
point. Using these invariants, a modified version of the scaling 
hypothesis about the three critical lines meeting at the tricritical 
point is presented. From it we demonstrate that the thermodynamic 
equation of state near a tricritical point and near a critical line 
may be expressed as double-power scaling functions. These imply 
that experimental data should collapse from a volume onto a line 
(i.e., by two dimensions). This behavior is in contrast to ordinary 
"single-power" scaling functions , which predict data collapsing from 
a volume onto a surface or from a surface onto a line (i.e., by one 
dimension) . 

In conclusion, we have obtained much information pertaining to the behavior 
materials under impact, particularly hypervelocity impact. Two useful numerical 
des have been developed for calculations of axdsymmetric hypervelocity impact for 
terials with rather general equations of state. Fundamental research in the 
eas of critical equations of state and non-equilibrium statistical mechanics and 
at transfer have also been considered. ( 

With best wishes , I am 


Very sincerely yours, 

/ (TM 

Then Sun Chang 
Professor 


C :mlm 
closures 

: NASA Scientific and Technical 

Information Facility (3 copies) 


1 . 1 . 


"Stress Waves Resulting from Hypervelocity Impact" 


1,2. "Nonlinear Waves in a Rate-Sensitive, Elastoplastic Material 


1,3, "Curved Characteristics Behind Blast Waves" 


1,4. "On Dispersion and Characteristic Motions of Temperature -Rate 

Dependent Materials" 

NASA Report - copies not enclosed 


1.5. "Comments on Application of Singular Eigenfunction Expansions 

to the Propagation of Periodic Disturbances in a Radiating 
Grey Gas" 


PAPERS INTENTIONALLY OMITTED 



II. 1. 


Method of ' Characteristics Calculations and the Computer Code 
Using Orthogonal Polynomial Least Square Surface Fits 





List of Symbols 


t = time (ysec) 

r 

r = radial coordinate (cm) 

Z = axial coordinate (cm) 

U = radial velocity (cm/usec) 

V = axial velocity (cm/ysec) 
p = mass density (gm/cm 3 ) 

e = internal energy per unit mass (megabar cm 3 /gm) 
a = sound speed (cm/ysec) 

P = pressure (megabars) 

cos a Q = direction cosine of normal with respect to r axis 
S ^ n a o = direction cosine of normal with respect to Z axis 



Table 1. Flow properties in Projectile Shock at t - 1.18 psec after 
impact of a 2. 5-cm-diameter projectile at 0.76 cm/ysec 
on an aluminum half-space based on (1) Double Interpolation 
and (2) Othogonal Polynomials Least Square Surface Fit with 
Double Interpolation after t - 1.1 ysec. 
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Table 2- Flow properties in Target Shock at t = 1*18 usee after impact 
of a 2 . 5- cm- diameter projectile at 0,76 cm/ysec on an aluminum 
half-space based on (1) Double Interpolation and C2) Orthogonal 
Polynomials Least Square Surface Fit with Double Interpolation 
after t = 1.1 ysec# 
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Table 3. Flow properties in Rarefaction at t = 1.18 psec after impact 

of a 2.5-cm-diameter projectile at 0.76 cm/psec on an aluminum 
half-space based on (1) Double Interpolation and (2) Orthogonal 
Polynomials Least Square Surface Fit with Double Interpolation 
after t = 1.1 psec. 
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Table 4* Flow properties in Interior Region at t = 1.18 ysec after 
impact of a 2 • 5-cm-diameter projectile at 0.76 cra/ysec on 
an aluminum half-space based on (1) Double Interpolation 
and (2) Orthogonal Polynomial Least Square Surfact Fit 
with Double Interpolation after t = 1.1 ysec at Z = -0.25 cm. 
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Table 5. Flow properties in Interior Region at t = 1.18 

psec after impact of a 2 , 5-cm-diameter projectile 
at 0.76 cm/psec on an aluminum half-space based 
on (1) Double Interpolation and (2) Orthogonal 
Polynomial Least Square Surface Fit with Double 
Interpolation after t = 1.1 Vsec at Z = 0.0 cm. 
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0.0 

1.0304 

0.0920 

2.7000 

0.0 

0.5277 


: — u 

— 






























































Table 6 


. Flow properties in Interior Region at t = 1.18 
ysec after impact of a 2 , 5-cm-diameter projectile 
at 0.76 cm/ysec on an aluminum half-space based 
on (1) Double Interpolation and (2) Orthogonal 
Polynomial Least Square Surface Fit with Double 
Interpolation after t = 1.1 ysec at Z = 0.25 cm. 


— t-TT-J 

r— — — 

Z = 0.25 cm 

r 

P 

U 

V 

P 

e 

a 

•t 

0.0 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 

1.0038 

•A, 

0.2500 

0.9018 

0.0414 

0.3889 " 

4.0190 

0.0608 

0.9582 


0.5000 

0.6611 

0.1029 

0.3898 

3.7383 

0.0461 

6.8890 

t 

-0.7500 

0.5468 

0.1589 

0.4410 

3.5875 

0.0393 

0.8504 

(1) 1 : 

1.0000 

0.4078 

0.2552 

0.5698 

3.3982 

0.0296 

0.7973 


1.2500 

0.2713 

0.3356 

0.2505 

3.1741 

0.0216 

0.7328 


1.5000 

0.1800 

0.2782 

-0.0038 

3.0497 

0.0126 

0.6831 


1.7500 

0.1452 

0.1345 

-0.0307 

3.0979 

0.0032 

0.6704 ' 


2.0000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 


0.0 

1.0869 

0.0 

0.3800 

4.2103 

0.0712 - 

1 . 0038 


0.2500 

0.9041 

0.0405 

0.4685 

4.0212 

0.0610 

0.9588 

‘ 

0.5000 

0.6238 

0.1083 

0.3428 

3.6922 

0.0436 

0.8770 

(2) 

0.7500 . " 

0.4999 

0.1591 

0.4221 

3.5219 

0.0365 

0.8332 

1.0000 

0.4384 

0.1553 

0.5946 

3.4452 

0:0314 — 

0.8102 


: 1.2500 

0.3310 

0.3414 

0.2448 

3.2767 

0.0250 

0.7629 


- 1.5000 

0.1820 

0.2935 

0.0031 

3,0507 

0.0130 

0.6841 


1.7500 

0.1509 

0.1379 

-0.0592 

3. 1H3 

0.0033 

0.6746 


2.0000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 

: — h— — ■ l 
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Table 7. Flow properties in Interior Region at t = 1,18 

ysec after impact of a 2, 5-cm-diameter projectile 
at 0*76 cm/ysec on an aluminum half-space based 
on (1) Double Interpolation and (2) Orthogonal 
Polynomial Least Square Surface Fit with Double 
Interpolation after t = 1,1 ysec at Z = 0,50 cm. 


m- Z = 0^50 cm 

r 

P 

U 

V 

P 

e 

a 


0.0 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 

1.0038 ■ 

' ■ 

0.2500 

BUlH 


0.3758 

IKSfll 

0.0625 

0.9651 


0,5000 


BEKBMI 



0.0504 

0.9106 


0.7500 

0.6101 

| 


1 

0.0432 

0.8723 

1 : 

(l) 

1.0000 

0.5674 



1 

0.0406 

1 0.8577 

1.2500 

0.3240 

0.2039 




0.0246 

0.7595 


1.5000 

0.2336 

0.1796 

0.0690 

3.2048 

0.0115 

0.7206 


1.7500 

0.1461 

0.0865 

0.0345 

3.1018 

0.0031 

0.6713 


2.0000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 


0.0 

1.0869 



4.2103 

0.0722 

1.0038 


0.2500 

0.9477 



4.0676 

0.0637 

0.9700 


-0.5000 

mm 

SBilSBI 

0.3266 

3.8004 

0.0491 

0.9045 


0.7500 

0.5934 

0.0993 

0.3379 

3.6493 

0.0422 

0.8666 

C2) 

1.0000 

0.5876 

0.1442 

0.3938< 

3.6421 

0.0418 

0.8647 


1.2500 

0.3056 

0.2154 

0.1785 

3.2283 

0.0241 

0.7501 


1.5000 

0.2380 

0.1708 

0.0771 

3.2140 

0.0117 

0.7232 


1.7500 

0.1611 

0.1319 

0.0292 

3.1346 

0.0036 

0.6820 


2.000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 


/5 
















































Table 8. Flow properties in Interior Region at 
t - 1-18 ysec after impact of a 2.5- 
cm-diameter projectile at 0.76 cm/ysec 
on an aluminum half-space based on (1) 

Double Interpolation and (2) Orthogonal 

Polynomial Least Square Surface Fit with 

Double Interpolation after t = 1.1 ysec at Z = 0.75 cm. 


Z = 0.75 cm 

r 

P 

U 

V 

P 

e 

a 


0.0 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 

1.0038 

4* 

0.2500 

1.0006 


0.3730 

4.1231 

mi 

0.9832 


0.5000 

0.8307 




M 

0.9391 

(l) ! < 

0.7500 

0.7051 

1 

OB 


0.0489 

0.9026 


1.0000 

0.6166 



0.0937 

0.3127 

3.6908 

0.0423 

0.8752 


1.2500 

0.4242 

0.1292 

0.1985 

3.4661 

0.0263 

0.8077 


1.5000 

0.3014 

0.1187 

0.1145 

3.3803 

0.0108 

0.7624 


1-7500 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 


2.0000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 


0.0 

1.0869 | 


0.3800 

4.2103 

0.0722 

1.0038 


0.2500 

0.9148 

-0.0201 

0.4072 

EiSSliflHi 

0.0615 

0.9616 


0 . 5000 __ 

-JLM02 J 

0.0542 

0.3333 

■ 

0.0556 

0.9352 

(2) 

— Q..J5QQ 


0.0658 

0.3149 

3.7846 

l^^i 

0.9009 


^OJDOQO 


0.0982 

■0.3095 

3.6667 


0.8693 



0.4229 

0.1272 

0.1785 

ngB 

0.0265 




0.3248 

0.1134 


3.4247 

0.0115 

6.7744 


1.7500 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 

* 

2.0000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 












































































Table 9. Flow properties in Interior Region at 

t = 1.18 ysec after impact of a 2,5-cm- 
diameter projectile at 0.76 cm/ysec on 
an aluminum half-space based on (1) 
Double Interpolation and (2) Orthogonal 
Polynomial Least Square Surface Fit with 
Double Interpolation after t = 1.1 ysec 
at Z = 1.00 cm. 


Z = 1.00 cm 

.1 ( 

(1) 1 j 

. 

r 

P 

u 

V 

p 

e 

a 

0.0 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 

1.0038 

0.2500 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 

1.0038 

0.5000 

0.9551 

0.0239 

0.3569 

4.0754 

0.0642 

0.9719 

• 0.7500 

0.8458 

0.0404 

0.3263 

3.9658 


n. qlrr 

1.0000 

■ 0.7492 

0.0545 

0.3053 

3.8760 

0.0477 

0.9180 

1.2500 

0.5566 

0.0703 

0.2330 

3.6866 

0.0306 

0.8607 

1.5000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 

1.7500 

0.0 

0.0 

0.0 

2.7000 

0,0 

0.5277 


2.0000 

0.0 

0.0 

0.0 

2.7000 

0.0 1 

0.5277 

(2) ' 

- _ . 

0.0 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 

1.0038 

0.2500 

1.0869 

0.0 



0,0722 

1.0038 

0.5000 



mam 

1 

0.0616 


0.7500 

| 

§§jmm 

0.3269 

3.9397 



1.0000 


0.0646 

0.3254 



■ 

1.2500 

0.5142 

0.0880 

0.2854 



Bna 

1.5000 

0.0 

0.0 

0,0 

2,7000 

0.0 

0.5277 

1.7500 

o-o ^ 

0.0 

0.0 

2.7000 

0.0 

0.5277 

2 . 0000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 

" ' - " ■ K- 


/7 






















Table 10. Flow properties in Interior Region 
at t = 1.18 jisec after impact of 
a 2,5-cm-diameter projectile at 0.76 
cm/ysec on an aluminum half-space 
based on (1) Double Interpolation and 
(2) Orthogonal Polynomial Least Square 
Surface Fit with Double Interpolation 
after t = 1.1 ysec at Z = 1.25 cm. 


Z = 1.25 cm 

a )* : 

r 

P 

. . -- 

U 

V 

p 

e 

a 

1.0038 

0.0 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 

0.2500 

1.0869 

0.0 

0.3800 , 

4.2103 

0.0722 

1.0038 

0.5000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 

0-. 7500 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 

1.0000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 

1.2500 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 

1.5000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 

1.7500 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 

2.0000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 


0.0 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 


0.2500 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 

1.0038 

(2) 

0.5000 


0.0 

0.0 

2.7000 

0.0 

0.5277 

0.7500 

0.0 

0.0 

0..0 

1 

2.7000 

0.0 

0.5277 

1.0000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 

1.2500 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 

1.5000 

0.0 

0.0 

0,0 

2.7000 

0.0 

0.5277 

1.7500 

0.0 

0.0 

0.0 

msm 

0.0 

0.5277 

2.0000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 






























Table 11. Flow properties in Projectile Shock at t = 1.25 jusec after 

impact of a 2. 5-cm-diameter projectile 0.76 cm/ysec on an 
aluminum half-space based on (1) Double Interpolation and 
(2) Orthogonal Polynomials Least Square Surface Fit with 
Double Interpolation after t = 1,1 ysec. 


* 

i : 

' (1) 

■ 


(2) 

z 

r 

P 

U 

V 

Z 

r 

P 

U 

V 


p 

e 

a 

cos a 

n_ _ 

sin a 

n 

P 

e 

a 

cos a n 

sin 


-0.3742 

0.0 

1.0869 

0.0 


-0.3742 

0.0 

1. 0869 

• 

0.0 

.0.3800 


4.2103 

0.0722 


0.0 


4.2103 

0.0722 

1.0038 

0.0 

1.0000 


-0.3742 

0.2500 

1.0869 

0.0 

0.3800 

-0.3742 

0.2500 

1.0869 

0.0 

0.3800 


4.2103 

0.0722 

1.0038 

0.0 

1.0000 

4.2103 

0.0722 

1.0038 

0.0 

1.0000 


-0.3713 

0.5018 


0.0029 

0.3993 

-0.3684 

■ 

0.5014 

0.9280 

0.0019 

0.4191 


4.1460 

0.0650 

0.9857 

-0.0079 

0.9999 

4.0789 

0.0581 

0.9670 

-0.0057 

1.0000 


-0.3468 

0.7660 

0.8343 

0.0217 

0.4438 

-0.3437- 

0.7655 

0.7182 

i 0.0104 

0.4750 


3.9954 

0.0501 

0.9436 

-0.0685 

0.9973 

3.8844 

0.0405 

0.9123 

| -0.0366 

0.9990 


-0.2153 

1.0232 

0.4007 

0.0144 

0.5731 

-0.2140 

1.0213 

. 0.3767 

| 0.0113 

0.5816 


3.5195 

0.0173 

0.8060 

-0.0775 

0.9958 

3.4869 

' 

0.0157 1 

0.7961 

1 

-0.0636 

0.9970 



a? 


























Table 12. 


Flow properties in Target Shock at t * 1.25 usee after impact of 
a 2 . 5-cm— diameter projectile at 0.76 cm/ysec or an aluminum half- 
space based on (1) Double Interpolation and (2) Orthogonal Polynomials 
Least Square Surface Fit with Double Interpolation after t = 1.1 ysec. 


p 

*~e 

a 

cos a 

0 

sin a 

o 

P - 

e 

a 

cos a 

0 

sin a 

o 

1.3242 

o.p 

1.0869 

0.0 

0.3800 

1.3242 

0.0 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 

1.0038 

0.0 

1.0000 

4.2103 

0.0722 

1.0038 

0.0 

1.0000 

1.3242 

0.2500 

1.0869 

0.0 

0.3800 

1.3242 

0.2500 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 

1.0038 

0.0 

1.0000 

4.2103 

0.0722 

1.0038 

0.0 

1.0000 

1.3233 

0.5015 

1.0568 

0.0039 

0.3724 

1.3232 

0.5014 

" 1. 0550 

0.0034 

0.3723 

4.1863 

0.0695 

0.9970 

0.0105 

0.9999 

4.2848 

0.0693 

0.9966 

0.0092 

1.0000 

1.3110 

0.7558 

0.9511 

0.0066 

0.3467 

1.3109 

0.7558 

0.9506 

0.0066 

0.3465 

4.0991 

0.0601 

0.9726 

0.0190 

0.9998 

4.0986 

0.0600 

0.9725 

0.0190 

0.9998 

1.2823 

1.0325 

0.8208 

0.0203 

0.3122 

1.2823 

| 1.0325 

0.8240 

i 0.0204 

0.3130 

3.9830 

0.0490 

0.9401 

0.0650 

0.9976 

3.9859 

0.0492 

0.9409 

0.0649 

0.9976 

1.1836 

1.3220 

0.5493 

0.0312 

0.2325 

1.1840 

1.3224 

0.5610 

0.0332 

0.2359 

3.7041 

0.0276 

0.8654 

0.1328 

0.9901 

3.7174 • 

0.0284 

0.8645 

0.1390 

0.9892 

0.8044 

1.7655 

0.1534 

0.0550 

0.0669 

0.8039 

1.7655 

0.1475 

0.0512 

0.0664 

3.1120 

0.0037 

0.6759 

0.6341 



0.7718 

3.0997 

0.0035 

0.6717 

0.6098 

0.7910 

0.6060 

1.8958 

0.0637 

0.0318 

0.0248 

0.6060 

1.8957 

0.0621 

0.0310 

0.0242 

2 . 9000 

0.0007 

0.6013 

0.7876 

0.6152 

2.8955 

0.0007 

0.5997 

0.7875 

0.6152 

0.3853 

1.9721 

0.0 

0.0 

0.0 

0.3853 

1.9722 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 

0.9354 

0.3522 

2.7000 

0.0 

0.5277 

0.9354 

0.3524 


Table 13. 


Flow properties in Rarefaction at t = 1.25 ysec after 
impact of a 2 . 5-cm-diameter projectile at 0.76 cm/psec 
on an aluminum half-space based on (1) Double Inter- 
polation and (2) Orthogonal Polynomials Least Square 
Surface Fit with Double Interpolation after t = 1.1 psec. 


( 1 ). 

i . 

* 

( 2 ) 

z 

r 

cos a 

o 

7 

sm a 

0 

z 

r 

cos a 

o 

0.6768 

sin a 

0 

- 6. 7362 

1.3242 

0.3263 

0.6768 

- 0.7362 

1.3242 

0.3263 

1.2029 

0.2280 

0.5801 

- 0.8145 

1.2029 

0.2280 

0.5801 

- 0 . 8145 " 

— 1. 0816 

0.1517 

0.4834 

- 0.8754 

1.0816 

0.1517 

0.4834 

- 0.8754 

^ 0.9602 

0.0929 

0.3867 

- 0 . 9222 

0.9602 

0.0929 

0.3867 

- 0.9222 

0.8389 

0.0493 

0.2901 

- 0.9570 

0.8389 

0.0493 

0.2901 

- 0.9570 

0.7176 

0.0190 

0.1934 

- 0.9811 

0.7176 

0.0190 

0.1934 

"^ T ). 78 TI •- 

0.5963 

0.0012 

0.0967 

- 0.9953 

0.5963 

0.0012 

0.0967 

- 0.9953 

0.4750 

0.3537 

- 0.0047 

0.0000 

- 1.0000 

0.4750 

TToioo 

- 1.0000 

0.0012 

- 0.0967 

- 0.9953 

0.3537 

0.0012 r 0>0967 - 

- 0.9953 

. 0 ., 2324 

0.0190 

- 0.1934 

- 0.9811 

0.2324 

0.0190 

- 0.1934 

- 0.9811 

-JDULU1 

0.0493 

- 0.2901 

! - 0.9570 

0.1111 

0.0493 

- 0.2901 

- 0.9570 

- 0.0102 

0.0929 

- 0.3867 

- 0.9222 

- 0.0102 

0.0929 

- 0.3867 

-079222 

- 0.1316 "" 

• 0.1517 

- 0.4834 

- 0.8754 

- 0.1316 

0.1517 

- 0.4834 

" -678754 

- 0.2529 

0.2280 

- 0 . 5801 " 

- 078145 ' ~ 

- 6.2529 

"072280 

- 0.5801 

- 0.8145 

- 0. 3742 

0.3263 

- 0. 6768 

- 0.7362 

- 0.3742 "" 

— ’ j 

0.3263 

- 0.6768 

- 0.7362 


S?/ 



Table 14 


. Flow properties in Interior Region at t = 1.11 ysec 
after impact of a 2 . 5-cm-diameter projectile at 0.76 
cm/psec on an aluminum half-space based on (1) Double 
Interpolation and (2) Orthogonal Polynomials Least 
Square Surface Fit with Double Interpolation afte 
t = 1.1 ysec at Z » -0.25 cm. 


Z = - 0.25cm 

r 

P 

u 

V 

p 

e 

a 


0.0 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 

1.0038 


0.2500 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 

1.0038 

• i 

i •_ 

0.5000 

1.0000 x 

0.0011 

0.3947 

4.1232 

0.0668 

0.9832 

(i) 

0.7500 

0.9432 

0.0686 

0.4380 

4.1035 

CL_Q5JS 

QJ2715 

1.0000 . 

0.0 

0.0 

0.0 

2.70000 

0.0 

0.5277 


1.2500 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 

• 

1.5000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 


1.7500 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 


2.0000 

0.0 

0.0 

0.0 

2.7000 

0,0 

0.5277 


0.0 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 

1.0038 


GL.25.Q_0 

L..Q8.69 

QJ2 

0.3800 

4.2103 

QJ5722 

1.0038 


0.5000 

0.9865 

-0.0923 

0.4746 


0.0660 1 

0.9798. .... 


0.7500 

1.6829 

0.0102 


4.7963 

0.0979 

1.1264 

(2) 

1.0000 

0.0 

l . . ..... .... 

0.0 




2.7000 

0.0 i 

0.5277 


1.2500 

0.0 

0,0 

0.0 

2,7000 

0.0 

0.5277 


f 

1.5000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 


1.7500 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 


_ 2. 0000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 














































Table 15. 


Flow properties in Interior Region at t = 1.11 psec 
ter impact of a 2 . 5-cm-diameter projectile at 0.76 
cm/p sec on an aluminum half-space based on (1) Double 
Interpolation and (2) Orthogonal Polynomials Least 
Square Surface Fit with Double Interpolation after 
t = 1.1 psec at Z = 0.0 cm. • 



r 

, 

P 

u 

V 

, ' P 

e 

a 


0.0 

1.0869 

0.0 

0.38000 

4.2103 

0.0722 

1.0038 


0.2500 

Is. 0869 

0.0 

0.3800 

4.2103 

0.0722 

1.0038 

! • 

0.5000 

0.7294 

0.0887 

0.4327 

3.8222 

0.0503 

0.9100 


0.7500 

0.5505 

0.1836 

0.5982 

3.5915 

0.0396 

0.8517 


1.0000 

0.1969 

0.2836 

0.7136 

3.0808 

0.0137 

0.6937 


1.2500 

0.0 

0.6041 

0.3687 

2.7000 

0.0 

0.5277 


4L5QQQ 

_£LD 

0^20.22 

-0.1010 

2.7onn 

0*0 

0. 5277 


1.7500 

0.0 

0.1250 

-0.1445 

2.7000 

0.0 

0.5277 

— 

2.0000 

0.0 

0.0672 

0.0310 

2.7000 

0.0 

0.5277- 


0.0 

1.0869 

: 0.0 

0.3800 

4 . 2103 

0.0722 

1.0038 


0.2500 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 

1.0038 


0.5000. 

0.6684 

0.0649 

0.4247 

3.7487 

0.0464 

0.8914 


0.7500 

0.5433 

0.2089 

0.5837 

3.5837 

0.0390 

0.8493 ~ 


1.0000 

0.1233 

0.2851 

0.6878 

2.9268 

0.0100 

" 076 W " 


1.2500 

0.0 

0,5798 

0.3784 

2.7000 

0.0 

0.5277 


1.5000 

0.0 

0.2384 

_-0.1266 

2.7000 

0.0 

0.5277 

b 

-1*7500 

0.0 

0.0790 

-0.1272 

2.7000 

0.0 

0.5277 

i 

2.0000 

0.0 

0.7397 

0.1453 1 

2.7000 

0.0 

6.5277 

L 






Tab la 16. Flow properties in Interior Region at t = 1.11 ysec 
after impact of a 2 . 5- cm— diameter projectile at 0.76 
cm/ysec on an aluminum half space based on (1) Double 
Interpolation and (2) Orthogonal Polynomials Least 
Square Surface Fit with Double Interpolation after 
t = 1.1 ysec at Z = 0.25 cm. 


Z = 0.25cm 


0.2500 

0.5000 
0.7500 
, 1.0000 
1. 250cT 

1.5000 

1.7500 

2.0000 


0.2500 

0.5000 

0.7500 

1.0000 

1.2500 

1.5000 

1.7500 

2.0000 


1.0869 

0.9839 

0.7084 

0.5403 

0.4323 

0.2618 

0.1760 

0.1315 


1.0869 

"o79982 


0. 6946 


0.4507 


0.2818 

0.1784 

0.1331 


0.0272 


0.0902 

0.1 560 

0.2422 

0.3301 


0.1172 


0.0263 


0.0922 


0.2414 


0 . 3 320 

0.2771 

0.1192 


0.3800 

0.3851 

0.3852 

0.4163 

0.5445 

0.2324 i; 


_dL.Q2.53.. 


0.3800 

'oT4170 


0.3700 


0.5557 


0.2294 

0 .0039 

-0.0361 


4.2103 

4.1059 



3.4320 

3.1521 

3.0472 


_ 2 . 7 _ 000 - 
4.2103 
4.1207 

3 .7806 
3. 5626_ 
3.4600 

..3.187 5... 
3.J0516 
3.0754 
: 2.7000 


0.0722 

0.0659 


-04-89 


1.0038 

0,9 791 

0.9037 


0,0120 

0,0025 


0,6809 

0.6606 


.__n,..0. - 1 — 0.52X7 - 


0.0722 

0.0668 


0,0381 

0.0325 

.0,022.6.. 

0.0122 


1.0038 

0.9826 

0.899.5. 

0.8 439. 

0. 3148 

..JO., 7 380 
0.6825 


0.0025 1 0.6618 

1 

0.0 1 0.5277 



Table 17 . Flow properties in Interior Region at t = 1.11 psec 
after impact of a 2 . 5-cxn-diameter projectile at 0.76 
c^/Usec on an aluminum half space based on (1) Double 
Interpolation and (2) Orthogonal Polynomials Least 
Square Surface Fit with Double Interpolation after 
t = 1.1 psec at Z = 2.50 cm. 


-- - X 

Z = 0.50 cm 

r 

P 

TT 

v 

P 

e 

a ~ 


0.0 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 

1.0038 


0.2500 

1.0058 

0.0224 

0.3776 

4.1284 

0.0672 

0.9845 


0.5000 

0.7873 

0.0644 

0.3560 

3.8904 

0.0538 

0.9270 

1 : 

0.7500 

0.6405 

0.1002 

0.3370 

3.7108 

0.0450 

0.8823 

CD 

1.0000: 

0.5742 

0.1362 

0.3663 

3.6236 

0.0410 

0.8600 


1.2500 

0.3283 

0.1942 

0.1842 

3.2750 

0.0246 

0.7618 


1. 5000 

0.2347 

0.1758 

0.0773 

3.2145 

0.0110 



• 0.7219 

: 

1.7500 

0.1343 

0.0741 

0.0354 

3.0770 

• 

0.0026 

0.6626 


2.0000 

: 

0.0 

0.0 

0.0 

2.7000 

| 

0.0 

0.5277 


0.0 

. 

'■'■'150869 

~67o 

673800 " 

4.2103 ~ 

'0.0722" 

j 

T.0038 


0.2500 

1.0122 

0.0136 

0.3928 

4.1350 

| 0.0676 

0.9860 


0.5000 

0.7791 

0.0687 

0.3477 

3.8810 

| 0.0533 

j 0.9246 


j 0.7500 

0.6353 

0.0971 

.0.3368 

.... | 

3.7042 

0.0447 

0.8806 


1.0000 

0.5763 

0.1374 

0.3665 

3.6261 

0.0412 

0.8607 

(2) 

1.2500 

— . J 

0.3191 

0.1977 

0.1809 

3.2574 

0.0243 

0 -7572 


1.5000 

0.2371 

0.1742 

0.0802 

3.2194 

0.0111 

0.7233 


1.7500 

0.1428 

0.0846 

0.0336 

3.0931 

0.0028 

0.6679 

- 

2.0000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 
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Table 18. 


Flow properties in Interior Region at t - 1.1 ysec 
after impact of a 2 . 5-cm-diameter projectile at 0.76 

cm/p sec cn an aluminum half space based on (1) Double 
Interpolation and (2) Orthogonal Polynomials Least 
Square Surface Fit with Double Interpolation after 
t = 1.1 psec at Z - 0.75 cm. 


Z = 0.75 cm- 1 1 [ 

r 

P, 

U 

f . 

V 

* P 

e 

a 


0.0 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 

1.0038 

0,2500 

1.0575 

0.0069 

0.3782 

4.1810 

0.0704 

0.9969 

0.5000 

0.8898 

0.0374 

0.3551 

4.0054 

0.0601 

0.9550 

0.7500 

0.7535 

0.0622 

0.3208 

3.8501 

0.0518 

0.9171 

1.0000 

0.6515 

0.0859 

0.3099 

3.7372 

0.0442 

0.8867 

1.2500 

0.4555 

0.1199 

6.2073 

3.5178 

0.0276 

0.8208 

1.5000 

0.3195 

0.1068 

0,1168 

3.4168 

0.0112 

0.7720 

1.7500 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 

2.0000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 

’ 

0.0 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 

1.0038 


0.2500 

0.9930 

-0,0229 

0.3930 

4.1156 

0.0664 

0.9814 

(2) 

0.5000 

0.8864 

0.0404 

0.3514 

4.1108 

0.0599 

0.9541 

0.7500 

0.7504 

0.0603 

0.3195 

3.8462 

0.0517 

0.9162 

1.0000 

0.6505 

0.0868 

0.3100 

3.7355 

0.0442 

0.8864 

1.2500 

0.4552 

0.1210 

0.2011 

3.5168 

0.0277 

0.8263 

1.5000 

0.3313 

0.1054 

0.1197 

3.4382 

0.0116 

0.7778 

1.7500 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 

2.0000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 









































Table 19* Flow properties in Interior Region at t = 1.1 psec 

after impact of a 2 • S-cm-diameter projectile at 0.76 
cm/psec on an aluminum half space based on (1) Double 
Interpolation and (2) Orthogonal Polynomials Least 
Square Surface Fit with Double Interpolation after 
t = 1.1 psec at Z = 1,00 cm. 


Z - LOO cm 

r 

P 

— 

u 

V 

P 

e 

a 


0.0 

1.0869 

0.0 

0.3800 

4.2103 

0.0722. 

1.0038 


0.2500 

1.0869 

o...o~. - 

-0.3800 

-.4.2103 - 

0.0722 

1.0038 ... 

, !f 

0.5000 

1.0119 

0.0131 

0.3673 

4.1346 

0.0676 

0.9860 

(i) 

0.7500 

0.8990 

0.0297 

0.3359 

4.0258 

0.0593 

0.9581 


1.0000 

0.7910 

0.0414 

0.3143 

. 

3.9271 

0.0499 

0.9302 

1 ; 

1.2500 

■ 0.6043 ' 

0.0512 

0.2428 

3.7526 

0.0330 

0.8773 


1.5000 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 ; 


1.7500 

0.0 

0.0 

0.0 

2.7000 

0.0 

0.5277 . 


2.0000 

0.0 

0.0 

0.0 

2.7000 

...0.0 

0.5277 


0.0 

1.0869 

0.0 

0.3800 

4.2103 

0.0722 

1.0038 


0.2500 

1.0869 

0.0 1 

0.3800 

~4.2103~ 

'"070722" 

“T70038 


0.5000 

j 1.0110 

0.0122 

i 

0.3680 

_.„335 

0.0676 

~oT"9857~ 


0.7500 

0.8941 

0.0332 

0.3364 

4.0203 

"070590 

'“079568 

(2) 

1.0000 

0.7734 

0.0489 

0.3178 

3.9067 

0.0488 

079232 

1.2500 

0.6046 

0.0551 

0.2587 

3.7552 

0.0328 

0.8776 


1.5000 

0.0 

0.0 

0.0 

2.7000 

0.6" 

0.5277" 


1.7500 

0.0 

0.0 

0.0. 

2.7000 

To"~ 

0.5277 


,2.0000 

0.0 

0.0 

0.0 

2.7000 

~o.T 

0.5277 


72 ~7 
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RECEDING PAGE BLANK NOT FILMED* 


COMMON CASEID(14>,ITS1,ITS2,ITS3,1TS4,ITI1,ITI2,ITI3,ITI4,EPSI,EPS 1 

12,EPS3,EPS4,EPS5,EPS6,EPI1,EPI2,EPI3,EPI4,EPI5,EPI6,EPI7,VP,AR,LEN 2 

IGTHt APR, BPR,BIGAPR, BIGBPR, ESTAR, ALPHA, BETA, RHOSTR, EPRS , RHOS 3 

COMMON XMESH ( 20« 20*6 ) * XMESH2( 20«20,6),Z(20)»R(20), SURF <15*8) * SURF 2 4 

1(15,8 ),TAB< 15, 14,2 ),TAB2<15, 14,2>, SPARTI 15,2 ,2 ) ,RARF < 15 , 11 ) ,RARF2 ( 5 

115,41, RPART<15*2) 6 

C 7 

C 8 

COMMON ZO, RO,PQ,UO ,V0,L0,M0,RH00,E0, AO,UBARO , VBARO 9 

C 10 

COMMON NP,NT,NR,NI ,NDEL, I SUB 11 

c 12 

COMMON ZMIN,ZMAX,RMIN,RMAX, RADIUS, GZ,GR, DELTA, H 13 

COMMON DIRCOS 14 

COMMON TIME 15 

COMMON IRARF 1 6 

COMMON KSTOP 17 

COMMON TPS I 18 

COMMON KKK 19 

c 20 

c 21 

REAL LO, MO, LENGTH, MU, KO 22 

DOUBLE PRECISION PHI<20,20,6> 

KR«7 

EPS*. 0000001 24 

KST0P*0 25 

1 FORMAT (1H1) 26 

CALL DVCHK (KEY ) 27 

KICK*0 28 

IF (KEY.EQ.l) GO TO 9980 29 

C 30 

DO 2 K*l»6 31 

DO 2 J=l,20 32 

DO 2 1*1,20 33 

XMESH< I, J, 10*0. 34 

XMESH2(I,J,K)»0. 35 


9L 9 



2 CONTINUE 36 

C KRW=0 37 

NUZ0N=0 38 

C 39 

C 40 

WRITE (3,4) 41 

C 42 

C DATA INPUT SECTION 43 

C 44 

4 FORMAT (52H1HYPERVELQCITY IMPACT METHOD OF CHARACTERISTICS CODE/// 45 

II 46 

C ID AND FX. PT • CONSTANTS 47 

C 48 

READ (1*8) CA$EID,IT$1,ITS2,IT$3,IT$4,ITI1,ITI2,ITI3,ITI4,N0EL 49 

8 FORMAT ( 13A6* A2/9I 3) 50 

IRARF* IT 12 51 

C 52 

C Ft. PT. CONSTANTS 53 

C 54 

READ ( 1« 15 1 EPS1»EPS2»£PS3,EPS4»EP$5,EP$6»EPI1»EPI2»EPI3,EPI4,EPI5 55 

1.EPI6.EPI7 56 

READ (1.141 NP.NT.NR 57 

14 FORMAT (313) 58 

READ ( 1. 15) APR. BPR. BIGAPR.BIGBPR.ESTAR* ALPHA. BETA* RHOSTR.EPRS* REF 59 

1L 60 

READ (1,15) ZMIN.ZMAX.RMIN.RMAX.GR.GZ. DELTA, VP, LENGTH, RADIUS, HSTAR 61 

15 FORMAT (6E12.8) 62 

READ (1,15) RST 63 

IF (RST.GT.O.) GO TO 16 64 

REWIND 5 

C DO 1529 JTP- 1, 200 66 

REAO (5ITIME 67 

C IF(ABS(RST+TIME).LT..001) GO TO 1530 68 

C READ (5 ) BLOB 

C1529 CONTINUE 70 

1530 CONTINUE 71 


29 



C kRW=1 72 

READ ( 5 ) U (XMESHU ,J,K)»I=1,20) » J=i,20),K=l,6),(Zm,I = l,20)*(R(I) 73 

1, I = l,20),( CSURFCI,J) , 1=1,15), J=l,8), <( (TAB< I , J, K ) , 1 = 1 , 15 ) , J=l, 14) , 74 

1K=1, 2),((RARF( 1,J>,I=1,15),J=1,U)»TIME,ZMIN,ZMAX,RMIN,RMAX,GR,GZ, 75 

1AR 76 

DO 1500 J*l,20 77 

DO 1500 1=1,20 78 

DO 1500 K=1 * 6 79 

1500 XMESH2 ( I * J ,K ) = XMESH( I,J,K) 80 

DO 1501 1=1,15 81 

DO 1501 J*l,8 82 

1501 SURF 2 ( I, J)=SURF( I, J) 83 

WRITE 13,145) TIME 84 

CALL SOUT 85 

CALL PR INTI XMESH2«Z, R,1 ) 86 

KREFL*0 87 

16 CONTINUE 88 

WRITE <3, 10) CASEID, ITS1 , 1 TS2, ITS3 , ITS4, I Til , IT 12, IT! 3, I TI4.NDEL 89 

10 FORMAT (IX13A6,A2//17H SHOCK ITERATI0NS6X,4I4//20H INTERIOR ITERAT 90 

1I0NS3X,4I4//7H NDEL =,I4///) 91 

WRITE (3,18) 6PS1, EPS2,EPS3,EPS4,EPS5, EPS6 ,EPI1,EPI2,EPI3,EPI4,EPI 92 

15, EP 16, 6PI 7, ZMIN,ZMAX,RMIN,RMAX, DELTA, VP, LENGTH, RADIUS, APR, BPR, BIG 93 

1 APR, BIGBPR,ESTAR, ALPHA, BETA, RHOSTR,EPRS,REFL 94 

18 FORMAT ( ///38H ERROR CRITERIA FOR SHOCK COMPUTAT I0NS//5X8HDELTA Z1 95 

18X8H0ELTA R18X9HDELTA RH07X7HDELTA E9X7HDELT A P9X7HDELTA U/6E16.6/ 96 

1//41H ERROR CRITERIA FOR INTERIOR COMPUTATIONS//5X8HDELTA ZI8X8HDE 97 

1LTA RI8X7HDELTA P9X7HDELTA U9X7H0ELTA V9X9H0ELTA RH07X7HDELT A E/7E 98 

116.6///5X4HZMIN12X4HZMAX12X4HRMI N12X4HRMAX12X5HDELTA HX 2HVP14X6HLE 99 

1NGTH10X6HRAD IUS/8E16*6///5X2HA* 14X2HB* 14X6HB IG A»10X6HBIG B»10X2HE 100 

1*14X5HALPHA1 1X4HBETA12X4HRH0*/8E16« 6//5X3HE 1 S13X4HREFL/2E16«6/ f / \ 101 

IF (RST.LT.O.) GO TO 140 102 

C 103 

C STORE RHO* IN ALL XMESH 104 

C 105 

DO 22 J=l, 20 106 

DO 22 1=1,20 107 





O U U CM O O O 


22 XME$H< I* Jt4l«RH0STR 108 

40 FORMAT (5E12.8) 109 

110 

PROJECTILE SHOCK 111 

112 

CALL EQ0S1 IPRHOtPPPt PVV * PEE*TEE*TRHO*KICKI 11B 

IF !KICK»EQ« 2200) GO TO 9980 114 

DO 230 N=1,NP 115 

TABfN* 1» 1 ) = ( PRHO*PVV-RHOSTR*VP!*HSTAR/ C PRHO-RHOSTR ) 116 

EE=N-1 117 

FNP*NP 118 

TAB<N,2,1>«RMIN*EE*<RADIUS-RMIN)/FNP 119 

TABIN,3,1)*PPP 120 

TABfN«4«l 1*0.0 121 

TAB(N« 5 t 1 ) *P VV 122 

TABIN,6,1)=PRH0 123 

TAB(N,7t 1)=PEE 124 

TAB{N«9f I)*0.0 125 

TAB(N,10,1)*1.0 126 

CONTINUE 127 

128 

TARGET SHOCK 129 

130 

M»0 131 

DO 240 N*1,NT 132 

EE=N-1 133 

FNT=NT-4 134 

TAB<N,2.2)»RMIN+EE*(RADIUS-RMIN)/FNT 135 

TAB(N*7*2)=TEE 136 

TAB(N»6 t 2)*TRH0 137 

TAB(N,3,2)=PPP 138 

IF <TAB(N,2 V 2). GT. RADIUS) GO TO 250 139 

TABINt It 2)*TRH0*PVV*HSTAR/( TRHO-RHOSTR) 140 

TAB(Nt4*2)«0.0 141 

TABC Nt 5t 2 >=PVV 142 

TAB ( Nt 9t 2 ) 3 0«0 143 



u o u 


250 


TABIN, 10,21*1.0 144 

GO TO 240 145 

EF=M 146 

TABIN,9,2)*SIN( . 5236+EF*.2618) 147 

TABIN,10,2J=C0S( .5236+EF*. 26181 148 

TAB<N,4,2I*PVV*TAB(N,9, 2) 149 

TAB(N t 5,2)*PVV*TABCN, 10»2) 150 

TAB(N,1,2!*TABU,1,2)*TAB IN, 10,21 151 

TAB IN, 2»21*RAD1US+TABC l, 1, 2)*TAB(N,9,2 > 152 

M*M+1 153 

240 CONTINUE 154 

155 

RAREFACTION 156 

157 

CALL EQ0S2I PPP*PRHO»PEE I 158 

EE=NR- 1 159 

ADEL=( TAB! 1,1,2 I-TAB < 1, 1 , 1 1) /EE 160 

RARF (l»l)*TAB(l*l,2) 161 

DO 205 N*2,NR 162 

RARF (N , 1 )=RARFCN-1 ,1 l-ADEL 163 

205 CONTINUE 164 

DO 210 N=1,NR 165 

RARF CN, 10 »=f RARF CN,1 |/HSTAR-.5*VP) /AR 166 

RARF IN, 9 )*-SQRT C 1.— RARF IN, 101**2 ) 167 

RARFIN,2>*RADIUS+HSTAR*AR*RARF(N,9J 168 

210 CONTINUE 169 

DO 220 N=1,NR 170 

RARF IN, 3 )=TAB( 1,3*1) 171 

RARF IN ,4 1=0* 172 

RARF|N,5)*TA8(1,5,1) 173 

RARF4N,6)*TABI 1,6,1) 174 

RARF IN *7 )=TABI 1,7,1) 175 

220 CONTINUE 176 

C REGION INTERIOR TO SHOCKS 177 

I*-ZMIN/GZ-»1.2 178 

J=0 179 





260 

J=J + 1 

180 


XMESH< I, J»1)=PPP 

181 


XMESH4I,J,3)=PVV 

182 


XMESHt It J,4)=PRHO 

183 


XMESHCI,J,5)=PEE 

184 


EE-( J-l ) 

185 


IF C 4EE*GR-RADIUS).LT.-EPS> GO TO 260 

186 


XRESH4 It Jt 1)=0. 

187 


XMESH4 I , J , 4 ) =RHOSTR 

188 


XMESH4I,J,5)=0. 

189 

C 


190 

C 

FREE SURFACE 

191 

C 


192 


00 50 1=1, NP 

193 


SURF < I , l )=-L ENGTH-fVP *H$TAR 

194 


SURF (I,2)=TAB4 1,2,1) 

195 


SURF ( I ,3 )=0* 

196 


SURF (1,4 )=0» 

197 


SURF ( I ,5 )=VP 

198 


SURF 4 1,6 )=RHOSTR 

199 


SURF ( I ,71=0* 

200 


SURF 4 I , 8 )=SQRT 4 BIGAPR/RHOSTR ) 

201 

50 

CONTINUE 

202 


00 51 1=1, NP 

203 


DO 51 J=1 , 8 

204 

51 

SURF 2 C I , J l=SURF4 I , J ) 

205 


IF (NUZON.EQ.O) GO TO 5001 

206 

5000 

GR=GR*2. 

207 


GZ=GZ*2. 

208 


ZMAX=ZMAX*2.-ZMIN 

209 


RMAX=RMAX*2. 

210 


NUZ0N*1 

211 


WRITE 43,5003) 

212 

5003 

FORMAT 47H REZONE/// 1 

213 

5001 

CONTINUE 

214 

C 


215 




c 

00 55 1=1,20 
EE=I-1 

Z(I)=ZMIN+EE*GZ 
Rl I 1=RMIN+EE*GR 
55 CONTINUE 

IF (NUZON.EQ.O) GO TO 5101 

DO 5100 1=1,10 

DO 5100 J=l,10 

DO 5100 K= 1 » 6 

L=2* I—i 

M=2*J-1 

XHESHI I, J,K)=XMESH(L,M,K) 

5100 CONTINUE 
GO TO 157 

5101 CONTINUE 
C 

C COMPUTE A FOR 2 SHOCKS AND MESH 

C 

DO 86 K=l» 3 

GO TO (57, 59, 61 1, K 


57 

NN*NP 

JJ=1 



GO TO 

63 

59 

NN=NT 

JJ=1 



GO TO 

63 

61 

NN=20 
J J=20 


63 

DO 84 

N=1,NN 


00 82 

J=l, JJ 


GO TO 

(65, 65, 68), K 

65 

P=TAB(N,3,KI 


RH0=TA8(N,6,K) 

E=TAB(N,7,K) 

GO TO 70 


216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 




66 P=XMESH< J»N,1J 252 

RHO=XMESH< J,N,4I 253 

E*XMESH< J»N*5I 254 

70 CONTINUE 255 

CALL EQ0S3 <RHO,AA*E» P I 256 

GO TO <76, 76,78), K 257 

76 TAB<N,8,K)*AA 258 

GO TO 82 259 

78 XMESH< J»N»6)=AA 260 

82 CONTINUE 261 

84 CONTINUE 262 

86 CONTINUE 263 

KICK **86 264 

CALL DVCHMKQ) 265 

IF (KQ.EQ.l) GO TO 9980 266 

C 267 

C STORE A FOR RAREFACTION 268 

C 269 

00 90 1=1, NR 270 

90 RARFI 1,8 l = AR 271 

C 272 

C COMPLETE SHOCK TABLES 273 

C 274 

00 99 K*l,2 275 

GO TO <92,941 ,K 276 

92 NN=NP 277 

GO TO 95 278 

94 NN=NT 279 

US=0. 280 

95 00 97 N=1,NN 281 

GO TO <93,961, K 282 

93 CONTINUE 283 

US=VP*TAB< N, 10, 1 1 284 

96 CONTINUE 285 

TA6<N,11,K)=TAB<N,9,K)*TAB<N,4,K)+TAB<N,10,K)*TA8<N,5,K) 286 

TA8tN,12,K)=TAB<N,9,KI*TAB<N,5,K)-TAB<N,10,K|*TAB<N,4,K) 287 





TA8(N, 13»K )=( ( TAB(N, 6, K)*ABS(TABf N, 11,K) ) ) / ( TAB( N,6»K)-RH0S TRI-US ) 288 

l*(-l.)**K 289 

TAB(N,14,K)=1« 290 

97 CONTINUE 291 

99 CONTINUE 292 

C 293 

C 294 

C STORE ALL XMESH IN XMESH2 295 

c 296 

130 00 135 K=i,6 297 

DO 135 J=l,20 298 

00 135 1=1,20 299 

XMESH2U, J,K)=XMESH< I,J,K) 300 

135 CONTINUE 301 

TIME=HSTAR 302 

WRITE (3,145) TIME 303 

CALL SOUT 304 

C CALL PRINT (XMESH2«Z,R,1I 

CALL PRINT (XMESH2,Z,R,1, PHItNMAXfMMAX) 

c 306 

KREFL=0 307 

139 IF (KREFL.NE.O) GO TO 143 308 

C ENTRY FOR TIME STEP 309 

c 310 

140 REAO (1,142) H 3U 

142 FORMAT (E12.8) 312 

143 CONTINUE 313 

TIME=TIME*H 314 

WRITE (3,145) TIME 315 

145 FORMAT (1H1///6H TIME*,E15.8///) 316 

WRITE (3,999) KR 317 

999 FORMAT (5X,4H KR=,I5) 318 

C 319 

c 320 

C AOVANCE SHOCK POINTS 321 

c 322 





DO 159 N«1.NP 323 

IF 1TAB(N V 14«1>.LT.0.) GO TO 156 324 

IF I (TABINt 1»1>-SURF<N, 1H.GT.EPS) GO TO 154 325 

156 TAB2 (N« 1»1>-TAB(N»1»1) 326 

TAB2(Nt2»n~TAB(N»2 v n 327 

TAB<N,14,ll=-l. 328 

GO TO 159 329 

154 TA82<N,i,l>=TAB(N,l»lKTAB<N,13,ll*H*TAB(N,10,l)-VP*TAB<N»9,l)*TAB 330 

KN,10tl>*H 331 

150 TAB2(N,2,l)-TAB<N*2,mTABIN f 13. 1 > *M*TAB< N*9 , 1 ) -VP*TAB( N, 9, U**2*H 332 

159 CONTINUE 333 

DO 155 N=1.NT 334 

TAB2IN*1*2)=TAB(N*1»2)+TAB(N»13*2) *H*TAB( N* 10» 2 ) 335 

155 TAB2(Nv2f2>*TAB(N v 2 t 2>+TAB(N«13.2)*H*TAB<N v 9,2) 336 

DO 158 M*1 * NT 337 

IF «TAB2<M,lt2).GT.ZMAX| GO TO 5000 338 

IF ITAB2<M,2,2).GT.RHAX> GO TO 5000 339 

158 CONTINUE 340 

157 NUZON-O 341 

C ADVANCE RAREFACTION 342 

C 343 

IF I RARF { 1. 2 > «LT .0. ) IRARF=1 344 

IF URARF.EO.U GO TO 516 345 

ENR=NR-1 346 

ADEL=(TAB2(l*lt2)-TAB2(l,l,ll>/ENR 347 

RARF2I It 1)*TAB2(1»1»2) 348 

DO 510 N»2,NR 349 

RARF2(N,l»=RARF2fN-l,l)-ADEL 350 

510 CONTINUE 351 

DO 515 N=1»NR 352 

RARF2INf3l»<RARF2<Nf D/TIME-. 5*VP)/AR 353 

RARF2 ( Nt 4)=-S0RT ( 1 •— RARF2C N. 31**2 ) 354 

RARF2(Nf2)=»RADIUS+TIME*AR*RARF2INf4) 355 

515 CONTINUE 356 

516 CONTINUE 357 

CALL SHOCK 358 


"37 



C 359 

C 360 

IF < ITS3.EQ. 1 ) 60 TO 569 361 

C SHOCK COMPUTATIONS COMPLETED 362 

C COMPUTE PARTICLE CURVES 363 

C 364 

TMP=.5*VP*H 365 

00 520 N*1,NP 366 

SPART(N«1,1)=TAB(N'1,1)+TAB(N,5.1)*H 367 

520 SPART<N,2,ll=TAB<N,2,l)+TABIN,4 t l)*H 368 

00 525 N*1»NT 369 

SPARTIN* l*2)=TABIN»lt2)+TAB(N»5f2)*H 370 

525 SPARTIN»2»2)*TAB(Nf2t2I+TAB(N»4»2)*H 371 

IF ( IRARF.EQ.l } GO TO 531 372 

00 530 N=1 *NR 373 

RPARTIN» 1)=RARF(N« 1)+TMP 374 

530 RPART(N,2)*RARF(N,2) 375 

531 CONTINUE 376 

C 377 

C 378 

568 CALL S0UT2 379 

569 CONTINUE 380 

C ADVANCE PROJECTILE REAR SURFACE 381 

DO 5300 I=1*NP 382 

DO 5300 J a l*8 383 

5300 SURF2I I*J)=SURFf I » J ) 384 

K ICK=568 385 

CALL OVCHKIKQI 386 

IF (KQ.EQ.ll GO TO 9980 387 

C 388 

C START INTERIOR REGION COMPUTATIONS 389 

C 390 

C CALL INTER 

CALL INTER IP HI »NMAX* MMAX ) 

C 392 

C INTERIOR REGION COMPUTATIONS COMPLETED 393 





394 


C 


c 

CALL PRINTCXMESH2* Z * R* 2 ) 



CALL PRINTIXMESH2,Z,R,2,PHI,NHAX,HMAX> 


570 

CONTINUE 

396 

C 


397 

C 

INITIALIZE FOR NEXT TIME STEP 

398 

C 


399 


DO 920 K=l,6 

400 


DO 920 J=l*20 

401 


DO 920 1*1*20 

402 


XMESHI I* J*KI=XHESH2C I.J.KI 

403 

920 

CONTINUE 

404 


DO 930 J*1 *13 

405 


DO 930 1=1 *NP 

406 


TABU*J*1)=TAB2< I,J,1) 

407 

930 

CONTINUE 

408 


DO 940 J=1 * 13 

409 


DO 940 1=1. NT 

410 


TAB! I*J*2»=TA82! I*J*2) 

411 

940 

CONTINUE 

412 


IF MRARF.EQ.l) GO TO 951 

413 


DO 950 1=1 . NR 

414 


RARF C I* 1 )*RARF2II * 1) 

415 


RARE ( I *21 =RARF2( 1*2) 

416 

950 

CONTINUE 

417 

951 

CONTINUE 

418 


DO 960 1=1 *NP 

419 


DO 959 J=1 *5 

420 


SURF ( I *4 )=SURF2( I * J ) 

421 

959 

CONTINUE 

422 

960 

CONTINUE 

423 

777 

IF (KREFL.EQ.O) GO TO 980 

442 


KREFL=0 

443 


H=H1 

444 


GO TO 143 

445 

980 

CONTINUE 

446 





CALL OVCHK(KICK) 447 

IF (KICK.EQ.2) 60 TO 140 448 

WRITE 13,970) 449 

970 FORMAT (28H0DIVI0E CHECK AT END OF CASE/1H1) 450 

CALL EXIT 451 

C 452 

C DIVIDE CHECK 453 

C 454 

9980 WRITE (3,9985) KICK 455 

9985 FORMAT (32H0DIVIDE CHECK NEAR STATEMENT N0.,I5/1H1) 456 

RETURN 457 

DE8UG SUBCHK 

END 458 

SUBROUTINE DBLTRPf ZX *RX, ANSI I 

C 2 

C 1ST ORDER DOUBLE INTERPOLATION THAT CONSIDERS 3 

C LINES OF DISCONTINUITY IF IN CONSIDERED REGION 4 

C 5 

COMMON CASEID(14),ITS1,ITS2,ITS3,ITS4,ITI1, ITI2, IT 13 , IT 14, EPS1, EPS 6 

12,EPS3,EPS4,EPS5,EPS6,EPI1,EPI2,EPI3,EPI4,EPI5,EPI6,EPI7,VP,AR,LEN 7 

IGTH, APR, BPR,B!GAPR,BIGBPR,ESTAR, ALPHA, BETA, RHOSTR,£PRS, RHOS 8 

COMMON XMESHf 20,20, 6 ), XMESH2( 20,20,6) , Z( 20) , R ( 20 ) , SURF (15,8) »SURF2 9 

1(15, 8), TAB (15, 14, 2), TAB 2 (15, 14, 2), SPART (15,2,2),RARF(15,11),RARF2( 10 

115,4) ,RPART( 15,2) 11 

C 12 

C 13 

COMMON ZO»RO*PO*UO*VQ*LO»MO»RHQO*EO»AO,UBARO,VBARO 14 

C 15 

COMMON NP, NT ,NR,NI,NDEL, ISUB 16 

C 17 

COMMON ZMIN*ZMAX,RMIN,RMAX, RADIUS, GZ,GR, DELTA, H 18 

COMMON DIRCOS 19 

COMMON TIME 20 

COMMON IRARF 21 

COMMON KSTOP 22 

COMMON TPS I 23 





> o n o 


COMMON KKK 24 

REAL LO * MO » LENGTH, MU, KO 25 

C 26 

DIMENSION ANSI 6 ) * ANSI (2* 8) * ANS2 I2»8)»ZII4)*RII4J,IK(4) 27 

CALL DVCHKC KEY) 28 

IF IKEY.EQ.2) GO TO 4 29 

N0=0 30 

GO TO 940 31 

32 

FIND SUBSCRIPTS FOR GRID 33 

34 

11=1 ZX-ZMINI/GZ+l. 000001 35 

12*11+1 36 

Jl= I RX-RMIN ) /GR +1*000001 37 

J2=J l+l 38 

NN=NP 39 

IF I ITS3.EQ. 1) GO TO 3 40 

DO 1 K=1 ,2 41 

IF IK.EQ.2)NN=NT 42 

DO 1 1=1, NN 43 

ALF=SQRTIITABC I,1,K)-ZX)**2+ITABII ,2,K)-RX)**2 ) 44 

IF IALF.GT.EPS1) GO TO 1 45 

ANSI1)=TA8II,3«K) 46 

ANS(2)=TABI I*4,K) 47 

ANS I 3 )=TAB t I *5 »K ) 48 

ANSI 4)=TAB(I,6»K) 49 

ANSI5)=TABtI,7,K) 50 

ANSI6)=TABII,8,K) 51 

RETURN 52 

1 CONTINUE 53 

IF IIRARF.EQ.l) GO TO 3 54 

DO 2 1=1, NR 55 

ALF=SQRT I IRARFI 1,1 )-ZX)**2+IRARF 1 1 ,2)-RX ) **2 ) 56 

IF IALF.GT.EPI1) GO TO 2 57 

ANSI1)=RARFI 1,3) 58 

ANSI2)=RARFI 1,4) 59 


V/ 



ANSI 3I=RARF( l # 51 60 

ANSI4)=RARF< 1,6) 61 

ANSI 5)=RARF( 1,7) 62 

ANSI6)=RARFt 1,8) 63 

RETURN 64 

2 CONTINUE 65 

3 CONTINUE 66 

C 67 

C 68 

ZXX*ZX+.01 69 

RXXaRX+.Ol 70 

C 71 

C I LOOP FOR UPPER AND LOWER Z GRID LINES 72 

C 73 

DO 800 1*1,2 74 

IF I ITS3.EQ. I) GO TO 14 75 

IF II.EQ.2) GO TO 8 76 

11=11 77 

GO TO 12 78 

8 1 1* 1 2 79 

12 M=CCMPIZX,RX,Zl II) ,Rt Jl) ) 80 

IF IM.EQ.l) GO TO 13 81 

MC0M=1 82 

GO TO 20 83 

13 M=COMP (ZX,RX«ZI II)«RIJ2) ) 84 

IF IM.EQ.l) GO TO 14 85 

HC0M=2 86 

GO TO 20 87 

C 88 

C GET 6 VALUES ON GRID LINES 89 

C 90 

14 00 15 K=l,6 91 

ANS1II,K+2) = XMESH( 1 1 , J1 , K >♦( XMESH (I I , J2, tO-XMESH (I I , J1 ,K )) *{ RX-RI J 92 

im/<R(J2)-R{Jl) ) 93 

15 CONTINUE 94 

CALL DVCHKI NO) 95 



IF (N0.EQ.2I GO TO 17 96 

NO= 15 97 

GO TO 940 98 

17 ANSI (It 1)*ZI II ) 99 

ANSI ( I »2 J = RX 100 

GO TO 800 101 

C 102 

C 103 

20 ZZ=ZtIII 104 

RR-RX 105 

M=COMP (ZXyRX*ZZ»RR) 106 

IF (H.EQ.l) GO TO 300 107 

C 108 

C 109 

DO 25 K»1 * 2 110 

KATCH=0 111 

GO TO (21t22 ) «K 112 

21 NN=NP 113 

GO TO 23 114 

22 NN=NT 115 

23 JJJ=NN-1 116 

DO 24 M=l* JJ J 117 

IF (M.EQ.JJJ) GO TO 210 118 

IF <RX.GT.TABIM+l*2tK>.0R.RX.LT.TA8(M,2 f K>» GO TO 24 119 

210 ZKK)*TAB<M+l,l t K!+tTAB<M,l,K|-TAB<M«.l,l*Kl ) *( RX-TABf M+l ,2 »KH / (TA 120 

1BIM*2»K)-TAB(M+1»2#KII 121 

N0=210 122 

CALL DVCHK(KQ) 123 

IF IKQ.EQ.l* GO TO 940 124 

IF (I.EQ.2) GO TO 211 125 

IF (KATCH.EQ.l) GO TO 21 2 126 

KATCH=1 127 

GO TO 213 128 

212 IF HZX-ZI(KI).GT.<ZX-ZMI) GO TO 24 129 

IF (ZI(K).GT.ZX) GO TO 24 130 

213 ZH=ZKIO 131 



IF (K.EQ.2) GO TO 215 132 

NPS=M 133 

GO TO 24 134 

215 NTS=M l35 

GO TO 24 1 36 

211 CONTINUE 137 

IF (KATCH.EQ.l) GO TO 26 138 

KATCH=1 139 

GO TO 213 140 

26 IF ( (ZKKI-ZXJ .GT.(ZM-ZXI) GO TO 24 141 

IF (ZI(K).LT.ZX) GO TO 24 142 

GO TO 213 143 

24 CONTINUE 144 

ZI(K)*ZM 145 

IF (KATCH.NE.O) GO TO 25 146 

ZI(K»*ZMAX*1. 147 

25 CONTINUE 148 

IF ( IRARF.EQ.l )Z II 3) S ZMAX+1. 149 

IF (IRARF.EQ.i) GO TO 2504 150 

KATCH=0 151 

J J J=NR-1 152 

DO 27 M*1»JJJ 153 

ZI ( 3 )=RARF(M+lt 1 >♦( RARF ( M* 1 l-RARF ( M*i » 1 ) l*(RX-RARF (M-f l f 2 ) )/( RARFCM 154 

1»2I-RARF(M+1*2) ) 155 

N0=2 5 156 

CALL DVCHKtKQI 157 

IF (KQ.EQ.ll GO TO 940 158 

IF (ABS(ZI(3)-»ZX).GT • l.E-5 1 GO TO 279 159 

DO 2799 LN=1,6 160 

LNN=LN+2 161 

ANS(LN)=RARF(l f LNN) 162 

2799 CONTINUE 163 

GO TO 820 164 

279 CONTINUE 165 

IF (I.EQ.2I GO TO 28 166 

IF (ZK3I.GT.ZX) GO TO 27 167 

vy 



IF IKATCH.EQ.1) GO TO 280 168 

KATCH*1 169 

GO TO 281 170 

280 IF IIZX-ZII 3I).GT.<ZX-ZM)I GO TO 27 171 

281 ZM=Z 1 1 3 1 172 

MR=M 173 

GO TO 27 174 

28 IF IZII3I.LT.ZX) GO TO 27 175 

IF IKATCH.EQ.il GO TO 282 176 

KATCH=1 177 

GO TO 281 178 

282 IF I IZI<3l-ZX>.GT.!ZM-ZXn GO TO 27 179 

GO TO 281 180 

27 CONTINUE 181 

ZI I 3 )=ZM 182 

2504 CONTINUE 183 

KATCH*0 184 

K=4 185 

JJJ*NP-1 186 

00 2700 M*1,JJJ 187 

IF (M.EQ.JJJI GO TO 2710 188 

IF (RX.GT.SURFI M+l*2 I.OR.RX.LT. SURF CM* 2 1 I GO TO 2700 189 

2710 ZI (4)=SURF(M-*-l»U-MSURF(M» 1 l-SURFI N*1 * 1 ) I *1 RX-SURF ( M+l *2 1 1 /(SURF I H 190 

1*2 l-SURF CM + 1 »2 1 1 191 

IF IKQ.EQ.ll GO TO 940 192 

CALL OVCHKIKQI 193 

N0*2710 194 

IF II.EQ.2) GO TO 2711 195 

IF IKATCH.EQ.1) GO TO 2712 196 

KATCH=1 197 

GO TO 2713 198 

2712 IF (IZX-ZICKII.GT.(ZX-ZMI) GO TO 2700 199 

2713 ZM=ZI 141 200 

MS=M 201 

GO TO 2700 202 

2711 CONTINUE 203 

V5. 



IF IKATCH.EQ.1) GO TO 2726 

KATCH=1 

GO TO 2713 

2726 IF C (ZHKl-ZX).GT.tZH-ZXn GO TO 2700 
GO TO 2713 

2700 CONTINUE 
ZH4)=ZM 

IF IKATCH.NE.O) GO TO 2701 
ZIf4)*ZMAX+l. 

2701 CONTINUE 
RI(1)*RX 
RI(2)=RX 
RIC3)*RX 
RI(4>»RX 

C FIND INTERSECTION TO USE 

C 

30 KEY»0 

IF U.EQ.2) GO TO 50 
C 

C UPPER GRID LINE 

C 

DO 40 KK=1 »4 

IF (ZUI).GT.ZI(KK)) GO TO 40 
IF IABSIZI<KK)-ZX).LT.l.E-5) GO TO 35 
IF (ZI(KK).GT.ZX) GO TO 40 
IF (KEY.EQ.OI GO TO 35 
IF (ZKKKI.LE.ZHKEEP)) GO TO 40 
KEEP=KK 
GO TO 40 
35 KEEP*KK 

KEY= 1 

40 CONTINUE 

GO TO 65 
C 

C LOWER GRID LINE 

C 


204 

205 

206 
207 
206 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 


V4 



50 


DO 60 KK=1,4 240 

IF (ZUD.LT.ZKKK)) 60 TO 60 241 

IF (ABS(ZUKK)-ZX).LT.l«E-5) GO TO 55 242 

IF (ZI(KK).LT.ZX) GO TO 60 243 

IF (KEY.EQ.O) GO TO 55 244 

IF (ZI(KK).GE.ZI(KEEPI) GO TO 60 245 

KEEP*KK 246 

GO TO 60 247 

55 KEEP=KK 248 

KEY=1 249 

60 CONTINUE 250 

C 251 

65 IF <KEY.NE.OI GO TO 70 252 

WRITE <6,671 ZX,RX,I f <ZI<KEY),KEY=l,4>,<RI<KEY)»KEY=l,4l 253 

67 FORMAT ( 34H0 ERROR NEAR STATEMENT 65 IN DBLTRP/1X3HZX=,E15.8,4X3HRX 254 

1=»E15.8»4X2HI=, I3/1X3HZI=, 4E20.8/1 X3HRI»,4E20.8/1HI I 255 

XYZ=-2. 256 

ZYX*SQRT<XYZ» 257 

CALL EXIT 258 

C 259 

C FIND 6 VALUES ON SELECTED DISCONTINUITY 260 

C 261 

70 IF (KEEP.EQ.3) GO TO 80 262 

IF (KEEP.EQ.4) GO TO 81 263 

IF (KEEP.EQ.2) GO TO 71 264 

N=NPS 265 

GO TO 72 266 

71 N=NTS 267 

72 CONTINUE 268 

ZY=Z I (KEEP ) 269 

RY=RX 270 

DO 75 K=3* 8 271 

ANSI (I » K l=TA8(N»K* KEEP ) + (TAB(N+l »K»KEEP) -TAB (Nt K»KEEP> ) *SQRT 1 1 (RY- 272 

1TAB<N,2,KEEP n**2+<ZY-TA8<N,l,KEEP>)**2)/< ITABIN+l ,2 , KEEP) -TAB! N, 2 273 

1«KEEP) >**2*< TABIN+l, l, KEEP >-TAB<N,l, KEEP >1**2)) 274 

N0= s 75 275 

V7 



non 


CALL OVCHK(KQ) 

IF (KQ.EQ.l) GO TO 940 
75 CONTINUE 
GO TO 90 

80 N=MR 
ZY=ZI(3) 

RY=RX 

DO 85 K«3» 8 

ANSI (I ,K >=RARF(NtK > + (RARF(N+I,K>-RARF<N,Kn*SQRTU (RY-RARF(N,2> )** 
12+(ZY-RARF(N,in**2)/( (RARF(N+l t 2l-RARF(N,2> )**2+ ( RARF ( N+l , 1 l-RARF 
1(N,I))**2U 
N0=85 

CALL DVCHK(KQ) 

IF (KQ.EQ.il GO TO 940 

85 CONTINUE 
GO TO 90 

81 N=MS 
ZY=Z 1(4) 

RY=RX 

DO 86 K=3»8 

ANS1( I,K)=SURF(N f K)*(SURF(N+l,K)-SURF(N,K) )*SORH ( (RY-SURF(N*2) )** 
12*(ZY-SURFIN*l))**2)/( ( SURF ( N+ 1 , 2) -SURF ( N, 2 ) )**2+( SURF ( N+l* 1 l-SURF 
1IN,1))**2M 

86 CONTINUE 

90 CALL DVCHK(NO) 

IF ( NO.EQ. 2 ) GO TO 92 
N0=90 
GO TO 940 
92 ANSI ( I »1 )=ZY 

ANSI ( I » 2 )*RY 
GO TO 800 

FIND INTERSECTIONS OF 3 DISCONTINUITIES AND Z GRID LINE 

300 CONTINUE 

KATCHP=0 


276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 



KATCHR*0 312 

KATCHT*0 313 

KATCHS*0 314 

00 310 K=l,2 315 

KATCH=0 316 

GO TO (303,301) *K 317 

303 NN=NP 318 

GO TO 302 319 

301 NN=NT 320 

302 JJ J=NN-1 321 

DO 309 «=1,JJJ 322 

IF < fTAB(M # l,K>-TABtM+l, l,K)).GT.l.E-6) GO TO 3030 323 

GO TO 309 324 

3030 RI(K)=TAB(M+l,2,K) + (TABlM,2,IO-TAB(M+l»2,K) ) *( Z (I II-TAB ( M*1 , 1 , K ))/ 325 

1 (TABCM, 1 ,K )— TAB( M+l, 1,K ) ) 326 

CALL OVCHK(NO) 327 

IF CN0.EQ.2) GO TO 3031 328 

NO=3030 329 

GO TO 940 330 

3031 CONTINUE 331 

IF (M.EQ.JJJ) GO TO 3022 332 

IF (RI(K).GT.TAB(M+1,2,K).0R.RI(K).LT.TABCM,2,K) ) GO TO 309 333 

3022 IF (MC0M.EQ.2) GO TO 305 334 

IF (KATCH.EQ.l) GO TO 304 335 

KATCH= l 336 

GO TO 3050 337 

304 IF {(RX-RI(K)).GT.(RX-RM)> GO TO 309 338 

3050 RM=RI(K) 339 

IF (K.EQ.2) GO TO 3040 340 

MPS=M 341 

KATCHP=1 342 

GO TO 309 343 

3040 MTS=M 344 

KATCHT=1 345 

GO TO 309 346 

305 CONTINUE 347 



IF <KATCH. EQ . I ) GO TO 306 348 

KATCH=1 349 

GO TO 3050 350 

306 IF (<Rl(K)-RX).GT. ( RM— RX ) ) GO TO 309 351 

GO TO 3050 352 

309 CONTINUE 353 

RI<K)=RM 354 

IF <KATCH.NE.OJ GO TO 310 355 

RKKNRMAX+1. 356 

310 CONTINUE 357 

K =3 358 

IF <IRARF.EQ.1>RI<3J=RMAX+1. 359 

IF CIRARF.EQ.il GO TO 315 360 

JJJ*NR-1 361 

KATCH*0 362 

DO 312 M=1*JJJ 363 

RI<31=RARF<M+l»2l+< RARF ( M» 21— RARF < M+l *2 1 1*< Z 1 1 1 J— RARFC M+l » 2 ) 1/ CRAR 364 

IFCM, 1J-RARF<M+1,1>) 365 

NO-3122 366 

CALL DVCHMKQI 367 

IF <KQ.EQ.U GO TO 940 368 

IF CM.EQ.JJJ.OR.M.EQ.ll GO TO 3122 369 

IF <RI (K J .GT.RARFC M+l »2 ) .OR. RI (K) * LT.RARF< M» 2) ) GO TO 312 370 

3122 IF <MC0M.EQ.2J GO TO 316 371 

IF <KATCH.EQ.l) GO TO 317 372 

KATCH=1 373 

GO TO 3051 374 

317 IF < <RX-RI<K) 1.GT.CRX-RM1J GO TO 312 375 

3051 RM=R I <K ) 376 

MR=M 377 

KATCHR=1 378 

GO TO 312 379 

316 CONTINUE 380 

IF <KATCH.EQ.1J GO TO 318 381 

KATCH- 1 382 

GO TO 3051 383 



316 


IF C CRICKI-RXI.GT.CRM-RXl I GO TO 312 384 

GO TO 3051 385 

312 CONTINUE 386 

RICK >=RM 387 

IF CKATCH.NE.OI GO TO 315 388 

RICK >*RMAX+1 • 389 

315 CONTINUE 390 

KATCH=0 391 

JJ J=NP-l 392 

DO 3150 M=*1,JJJ 393 

. IF < CSURFCM,l)-SURFCM+lt II I.GT.1.E-6I GO TO 3130 394 

GO TO 3150 395 

3130 RI C 4 l=SURF C M+l * 2 1 + C SURF ( Mt 2 l-SURFC M-t-1 ,21 >*C l C I II-SURF C M+l 1 1 II / C SUR 396 

1FCM, 1)-SURFCM*1,1> I 397 

N0=3130 398 

CALL DVCHKCKQ* 399 

IF CKQ.EQ.l) GO TO 940 400 

IF CM.EQ.JJJ> GO TO 3123 401 

IF CRIC4).GT.SURFCM*1 t 2>.0R.RIC4).LT.SURF(M,2)) GO TO 3150 402 

3123 IF CMC0M.EQ.2I GO TO 3105 403 

IF CKATCH.EQ.il GO TO 3104 404 

KATCH* 1 405 

GO TO 3109 406 

3104 IF C CRX-RI (4) ) .GT. (RX-RM) > GO TO 3150 407 

3109 RM*RIC4> 408 

MS=M 409 

KATCH$=1 410 

GO TO 3150 411 

3105 IF CKATCH.EQ.il GO TO 3106 412 

KATCH=1 413 

GO TO 3109 414 

3106 IF C CRI C4I-RX) .GT. CRM-RXI I GO TO 3150 415 

GO TO 3109 416 

3150 CONTINUE 417 

RI C 4 >=RM 418 

IF CKATCH.NE.OI GO TO 3107 419 
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RI <4)=RMAX+1. 

3107 CONTINUE 

IF (KATCHP+KATCHT+KATCHR+KATCHS.EQ.O) GO TO 485 

zi<i»*zun 

£I(2)*Z(in 

zii3>=zun 

zi<4)*zun 

C J LOOP FOR LEFT AND RIGHT R GRID LINES 

C 

DO 700 J=l»2 
IF (J.EQ.2) GO TO 350 
C 

C LEFT R GRID LINE 

C 

JJ=J1 

KEY=0 

DO 340 N=l,4 

IF <R( Jl).GT.RI(N)) GO TO 340 
IF (RI(N).GT.RXJ GO TO 340 
IF (KEY.EQ.U GO TO 330 
KEY»1 
KEEP=N 
GO TO 340 
C 

C FIND CLOSEST 

C 

330 DIF1=RX-RI CKEEPI 
DIF2-RX-RI INI 

IF CDIF1.LE.0IF2) GO TO 340 
KEEP=N 

340 CONTINUE 
GO TO 375 
C 

C RIGHT R GRIO LINE 

C 

350 JJ S J2 
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KEY=0 456 

DO 360 N=1 ,4 457 

IF <R(J2).LT.RI(N) ) GO TO 360 458 

IF (RI(N).LT.RX) GO TO 360 459 

IF (KEY.EQ.l) GO TO 355 460 

K£Y= 1 461 

KEEP*N 462 

GO TO 360 463 

355 0IF1=RI (KEEP l-RX 464 

0IF2*RI(Nl-RX 465 

IF (DIF1.LE.DIF2) GO TO 360 466 

KEEP=N 467 

360 CONTINUE 468 

375 IF (KEY.EQ.l I GO TO 400 469 

C 470 

C NO POINTS BETWEEN RX AND GRID POINTS 471 

C 472 

ANS2 (J. 1 ) = Z( II) 473 

ANS2 ( J»2I=R( JJ 1 474 

ANS2(J,3)*XMESH(II,JJ,1> 475 

ANS2(J,4)=XMESH(II,JJ,2) 476 

ANS2(J,5)=XME$H( II,JJ,3> 477 

ANS2(J»6)*XMESH( II, JJ,4) 478 

ANS2 ( J 1 7 ) = XMESH( 1 1 » J J» 5 I 479 

ANS2(J,8)=XMESH( II,JJ,6) 480 

GO TO 700 481 

C 482 

C POINT FOUND BETWEEN RX AND GRID POINTS 483 

C 484 

400 GO TO (405,410,470,4811 »KEEP 485 

C 486 

C INTERSECTION ON PROJECTILE SHOCK 487 

C 

405 N1=MPS 489 

RY=RI (KEEP > 490 

ZY=Z(II) 491 
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GO TO 520 
C 

C INTERSECTION ON TARGET SHOCK 

C 

410 Ni=MTS 

RY=RI (KEEP ) 

ZY^ZCIII 
GO TO 520 
C 

C INTERSECTION ON RAREFACTION 

C 

470 N1=MR 

RY=R ( (KEEP I 
ZY=Z(II» 

GO TO 520 
C 

C INTERSECTION ON FREE SURFACE 

C 

461 N1=MS 

RY-RI(KEEP) 

ZY=zim 
GO TO 520 
C 
C 

485 WRITE (3,488) KEEP, I I, JJ,ZX,RX 

488 FORMAT (25H0 ERROR NEAR STATEMENT 485/lX5HKEEP=, I4.4X3HI I=, I4,4X3HJ 
1J=, I4/1X3HZX=, E15, 8, 4X3HRX=, E15« 8/1H1 ) 

CALL EXIT 
C 

C FINO TABLE VALUES 

C 

520 IF (KEEP.EQ.3) GO TO 580 
IF (KEEP.EQ.4) GO TO 591 
DO 550 N*3, 8 

ANS2 < J, N )=TAB( Nl, N* KEEP ) -MTAB(N1*1,N, KEEP )-TAB(Nl,N, KEEP) >*SQRT( ( ( 
1RY-TAB(N1,2,KEEP) )**2* ( ZY~TAB( N1 ,i , KEEP) )**2)/( (TAB(N1+1,2,KEEP)-T 
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lABINly 2 tK£EP)>** 2 +(TAB<Nl+l*lyKEEP>-TAB(Nl,l ,KEEPn**2U 528 

550 CONTINUE 529 

IF ( ZX »LT«0« .ANO.ABS (RX-RADIUS) . LT* 1 «E—6 ) GO TO 552 530 

IF (RX*LT. RADIUS. OR. ABSIZI III I.GT.l.E-6) GO TO 551 531 

552 CONTINUE 532 

ANS2(J,3)=0. 533 

ANS2U.6NRH0STR 534 

ANS2( J»7)=0. 535 

ANS2 C J * 8 )=SQRT ( B IGAPR/RHOSTR I 536 

551 CONTINUE 537 

GO TO 600 538 

580 DO 590 N=3t 8 539 

ANS2 ( J »N)*RARF(N1*N ) + (RARFC Nl+ltNI-RARFI N1 » Nl )*SQRT ( C IRY-RARF(Nl»2 540 

1 ))**2+( ZY-RARFI Nit 1 >)**2 )/ C < RARF INl+lt 2)-RARF(Nl f 2 ) )**2+(RARFlNl+l 541 

l*ll-RARF<Nl.m**2n 542 

590 CONTINUE 543 

GO TO 600 544 

591 DO 592 N=3,8 545 

ANS2 ( J»N J = SURF( N1#N )•*•! SURF (N 1+1 » NI-SURFI Nly N )) * SORT I < 1 RY-SURFI N1 ,2 546 

1 l)**2+(ZY-SURF<Nl,m**2)/(< SURF CNi+lf 21-SURF (N1 *2) ) **2* < SURF < Nl+1 547 

1*1)-SURF(N1» 1 1 1**2 1 ) 548 

592 CONTINUE 549 

600 CALL OVCHK(NO) 550 

IF <N0.EQ.2I GO TO 605 551 

N0=600 552 

GO TO 940 553 

605 ANS2!J,1»=ZY 554 

ANS2 ( Jy 2 )=RY 555 

C 556 

C END OF LOOP FOR BOTH R GRIO LINES 557 

C 558 

700 CONTINUE 559 

C 560 

C INTERPOLATE FOR UPPER AND LOWER VALUES 561 

C 562 

563 


00 720 J=3,8 



ANSI! I,J)*ANS2(1,J) + (ANS2(2, J)-ANS2(1, J> >*(RX-ANS2(1,2) )/( ANS2(2»2 
1>-ANS2(1,2)) 

720 CONTINUE 

CALL DVCHK(NO) 

IF I NO. EQ. 2 ) GO TO 730 

N0=720 

GO TO 940 

730 ANS1(I,1)*Z( II) 

ANSI ( I , 2 )=RX 
C 

C END OF LOOP FOR BOTH Z GRIO LINES 

C 

800 CONTINUE 
C 

C FIND FINAL VALUES 

C 

DO 810 J*l,6 

ANS I J )=ANS1 ( 1, J+2 ) +( ANSI ( 2, J+2 )-ANSl ( 1 , J+2 ) ) *( ZX-ANS1 ( 1 » 1 1 ) / ( ANSI I 
12,l)-ANSl(l,l)) 

810 CONTINUE 

CALL DVCHKCNO) 

IF (N0.EQ.2) GO TO 820 
N0=810 
GO TO 940 
820 RETURN 
C 

940 WRITE (3,942) 

942 FORMAT C 35H0DIVIDE CHECK ERROR IN SUBR. DBLTRP ) 

950 WRITE (3,952) NO,ZX,RX, I1,J1,KEEP,ZI,RI 

952 FORMAT (19H NEAR STATEMENT N0.,I4/1X3HZX=,E15.8,4X3HRX=,E15.8/1X3H 
111*, I4,4X3HJ1=,I4,4X5HKEEP», I4/1X3HZI=,4E18. 8/lX3HRI=,4E18. 8) 

WRITE (3,955) ( ( ANSI ( I , J ) , J=l, 8 ) , I = 1 ,2 ) , ( ( ANS2 ( I , J ) , J=1 ,8 ) , 1*1 , 2 ) 
955 FORMAT ( 1X5HANSW8E 16. 8/8E16.8/lX5HANS2=/8E16.8/8E16*8/lHl) 

XYZ=-2 • 

ZYX=SQRT (XYZ ) 

CALL EXIT 
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RETURN 

DEBUG SUBCHK 
END 

SUBROUTINE SHOCK 
C COMPUTES SHOCK VALUES 

COMMON CASEIDI 14)* IT Sit ITS2, ITS3* I TS4, 1 TIT , I TI 2 » I TI 3 , 1 TI4, EPS1 , EPS 

12,EPS3,EPS4,EPS5,EPS6,EPI1,EPI2,EPI3,EPI4,EPI5,EPI6,EPI7,VP,AR,LEN 
1GTH, APR, BPR,BIGAPR,BIGBPR,ESTAR, ALPHA, BETA, RHOSTR,EPRS,RHOS 
COMMON XMESH( 20* 20*6 ) , XMESH2I 20*20»6)*Z(20)»R(20)» SURF (15,8) ,SURF2 
1(15*8)»TAB (15*14*2), TAB 2(15*14*2), SPARTC 15,2 ,2 ) , RARF( 15 , 11 > , RARF2I 
115,4 ) ,RPART ( 15,2) 

C 

COMMON ZO,RO,PO,UO,VO,LO,MO»RHOO,EO, AO»UBARO ,VBARO 
C 

COMMON NP*NT,NR»NI ,NDEL, I SUB 
C 

COMMON ZMIN,ZMAX,RMIN,RMAX, RADIUS, GZ,GR,DELT A, H 
COMMON D1RC0S 
COMMON TIME 
COMMON IRARF 
COMMON KSTOP 
COMMON TPS I 
COMMON KKK 
C 

REAL LO, MO, LENGTH, MU, KO 
C 

DIMENSION ANS( 6 ) 

EXTERNAL FG0F1 
EPS* .0000001 

BEGIN SHOCK POINT COMPUTATIONS 
DO 505 K=1 ,2 
GO TO (158, 160), K 
158 NN=NP 

GO TO 162 
160 NN*NT 
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VBARS=0 • 34 

162 00 500 I»i # NN 35 

MPRO J*0 36 

IF (TAB<I,14»K).LT.O.) GO TO 500 37 

164 CONTINUE 38 

C 39 

C INITIALIZE TO ITERATE ON 1 SHOCK POINT 40 

C 41 

NBIC=0 42 

Z0=TAB2( I * 1 « K) 43 

R0*TAB2CI,2tK) 44 

P0=TAB( I* 3»K I 45 

U0=TAB(I,4,K) 46 

V0=TAB < I » 5*K ) 47 

RHOO=TAB( I »6»K) 48 

EO=TAB( I» 7»K) 49 

AO=TAB( I »8»K } 50 

L0=TABCI,9,K) 51 

H0=TAB< I » 10. K) 52 

UBARO»TABf I.ll.K) 53 

VBARO=TABI I* 12* K ) 54 

UT0H*TA8( I t 13f K) 55 

UTO=UTOH 56 

ITS44=ITS4 57 

IF IIRARF.EQ.il GO TO 170 58 

M=l-(NR-2)*<K-2) 59 

FF=R0“RARF2t M+lf 2 RARF2C M. 2I-RARF2 ( M+l *2 1 ) *C ZO— RARF2( M+i » 1 1 ) / (RA 60 

1RF2 (M» 1 I-RARF2I M+l. 11) 61 

169 CONTINUE 62 

IF (FF.LT..001) GO TO 350 63 

170 IF (I.NE.l) GO TO 180 64 

M0=TAB( I> 10. K) 65 

LO-O. 66 

GO TO 190 67 

180 IF (I.LT.NN) GO TO 184 68 

UP=H*< TABI I-1.13.K)-TAB< I.13.K) ) 69 
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TMP=SQRT C (TAB2C I-t, 2 ,K )-R0 )**2+ ( TAB2 < 1-1 » l,K )-Z0 )** 2 ) 70 

00MEG=UP/TMP 71 

GO TO 186 72 

184 DR1=TAB2< m»2*K)-R0 73 

DR2=R0-TAB2( 1-1*2, K> 74 

DZ1=TAB2( 1+1* 1*K )-Z0 75 

DZ2-Z0-TAB2I 1-1,1, K) 76 

UP=H*(TABI I— 1»13»K)-TABI I+1,13,K)> 77 

TMP=SQRT ( DR1**2+DZ 1**2 > ♦SORT ( DR2**2+DZ2**2) 78 

OOMEG*UP/TMP 79 

KICK=184 80 

CALL DVCHK(KQ) 81 

IF IKQ.EQ.l) GO TO 9980 82 

C 83 

C COMPUTE NEW LO,MO 84 

C 85 

186 CQMEG-COSt DOMEG) 86 

SOMEG=SINI DOMEG) 87 

XLO=LO*COMEG+MO*SOMEG 88 

XMO’HO*COMEG-LO*SOMEG 89 

LO=XLO 90 

MO=XMO 91 

IF IPO. GT. .0025) GO TO 190 92 

P0=0. 93 

U0=0. 94 

V0«VP*U.-t-l.)**K)/2. 95 

RH00=RH0STR 96 

E0=0 . 97 

AO^SQRT I BIGAPR/RHOSTR ) 98 

UBARO=MO*VO 99 

VBARO=VBARS 100 

UT0=UBAR0+A0*I-1.)**K 101 

GO TO 350 102 

190 ITS33*ITS3 103 

C 104 

C FIND GUESS TO START ITERATION 105 
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C 

195 CALL GUE$$(1,K0D2,Z0,R0, I.K.ZZ.RR, DZ.DR) 

IF <K002.EQ.1J GO TO 200 
WRITE (3# 198 ) I.K.ZO.RO 
WRITE (3.7002) ZZ.RR.DZ.DR 

198 FORMAT (31H0N0 GUESS FOUND FOR SHOCK P0INT/3H0I=,I4.6X2HK®»I4,10X3 
1HZ0= « E 15 . 6 . 10X3HRO® . E 15 • 8/ 1H 1 J 
CALL EXIT 

200 CONTINUE 
KY=K 
NTW=0 

IF (K.EQ.2) GO TO 201 
VBARS*VP*L0 
DIRCOS=-MO 
GO TO 203 

201 DIRCOS=MO 

203 CONTINUE 

CALL NRIT2tZl.Rl.ZZ, DZ.RR. 0R.EPS1, EPS2 . FG0F1 . ITS1 . KODE ) 

IF <KODE.EQ.OJ GO TO 205 

BICHARACTERISTIC SELECTION SCHEME 

IF (NBIC.EQ.O) GO TO 204 
IF <NTW.EQ.8)KY=KY+1 
IF < NTW.GT .21 ) GO TO 7000 
ANG1=ANG1*0TPSI*<-1. J**KY 
DIRCOS=S INI ANG1 J 
LO=COS < ANG1 J 
NTW*NTW4l 
GO TO 203 

204 CONTINUE 
NB IC® 1 

CALL DBLTRPI ZZ.RR. ANSI 
UA=ANS <2 J 
VA=ANS(3J 
AA= ANSI 6 ) 
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123 
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ZZZ=ZZ*DZ 142 

CALL DBLTRP<ZZZ,RR,ANSI 143 

UB-ANS( 2) 144 

VB=ANS< 3 ) 145 

ASIANS ( 6 ) 146 

RRR=RR+DR 147 

CALL DBLTRPf ZZ»RRR » ANS) 148 

UC*AN$<2> 149 

VC=ANS (3 ) 150 

AC=ANS (6) 151 

MM=0 152 

TPSI=1.5708*(-1.1**K 153 

XB*ZZ 154 

YB=RR 155 

N0M= 5 156 

CA=N0M 157 

6201 DTPSI*. 01745 158 

DTPS I=CA*DTPSI 159 

TPSI=TPSI*DTPSI*(-1. )**K 160 

Al=l,+H*( VB-VA-M AB-AA)*SIN(TPSI JI/DZ 161 

B1=H* ( VC-VA+ ( AC—AA) *SIN ( TP SI ) ) /OR 162 

Cl=-<ZZ-ZO+H*<VA+AA*SlN(TPSm > 163 

A2=H*(U8-UA+( AB-AA )*COS( TPSI I ) /DZ 164 

B2=l •+H*(UC-UA-M AC-AA )*COS ITPSI ) )/DR 165 

C2=-*RR-R0*H*(UA+AA*C0SITPSin» 166 

DET=A1*B2-A2*BI 167 

DELX* ( B2#C1-B1*C2 I /DET 168 

DELY«< Al*C2-A2*Cl)/DET 169 

170 

TEST FOR SAME REGION 171 

172 

XB1=XB+0ELX 173 

YB1=YB+DELY 174 

M»COMP ( XB» YB »XB1 y YBl ) 175 

IF (H.EQ.l) GO TO 6203 176 

MH=MM+1 177 
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IF (MM.LT.360/N0M) GO TO 6201 

7000 WRITE (3,7001) 

7001 FORMAT ( 41H0BICHARAC TER I ST IC SELECTION SCHEME FAILEO ) 

WRITE (3,614) ZG,RG 

614 FORMAT (1X5HZ0 =,E15.8,4X5HR0 =,E15.8) 

WRITE (3,7002) UA, VA » AA , UB , VB, AB ,UC , VC ,AC »ZZ ,DZ ,RR ,0R, ANG1 

7002 FORMAT (4E16.8) 

CALL EXIT 

6203 CONTINUE 
WRITE (3,6210) 

6210 FORMAT ( 53H0BICHARACTERISTIC SELECTION SCHEME EMPLOYED BY SHOCKX) 

6204 ANGl^TPS I 
T1=0 IRCOS 
T2=L0 

DI RCOS=$ IN ( ANG1 ) 

L0=C0$ ( ANG1 ) 

GO TO 203 

205 CONTINUE 
UBARS1=0. 

IF (K.EQ.1)UBARS1=M0*VP 
CALL DBLTRP(Z1,RI,ANS) 

P1=ANS( 1 ) 

U1=ANS(2) 

V1=ANS(3) 

RH01=ANS ( 4 ) 

£1=AN$< 5 ) 

A1=ANS (6) 

206 CONTINUE 
KICK=205 

CALL OVCHK(KQ) 

IF (KQ.EQ, 1 ) GO TO 9980 
IF (NBIC.EQ.O) GO TO 207 

7003 SINTH=ABS( D IRCOS ) 

COSTH«ABS(LO) 

0IRC0$»T1 

L0-T2 
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207 CONTINUE 214 

UBARI»L0*U1«-M0*VI 215 

IF 4K.EQ.2) GO TO 208 216 

IF 4UBAR1.LT .VP/2. » GO TO 208 217 

UBAR1=UBARS1-UBAR1 218 

208 CONTINUE 219 

218 CONTINUE 220 

Ml=PART( 1, Z1 tRl »ZZ *RR » DELTA* NDEL I 221 

IF 4Hl.EQ.lt GO TO 210 222 

PUR*0. 223 

PVR*0. 224 

GO TO 215 225 

210 CALL DBLTRPtZZfRRt ANS J 226 

OP=RR-R 1 227 

PUR* (ANS42I-U1I /DP 228 

219 CONTINUE 229 

PVR* 4 ANS ( 3 l—Vl ) /OP 230 

215 H1=PART<2,Z1,R1,ZZ,RR, DELTA, NDELI 231 

IF 4H1.EQ.1I GO TO 220 232 

PUZ*0. 233 

PVZ=0. 234 

PAZ=0. 235 

GO TO 225 236 

220 CALL DBLTRP4 ZZ,RR* ANSI 237 

DP= ZZ-Z1 238 

PUZ= 4 ANS 4 2 l-Ul I /OP 239 

PVZ= ( ANS 4 3 1— VI I /DP 240 

225 CONTINUE 241 

IF (NBIC.EQ.il GO TO 7004 242 

PURB1=L0*PUR+H0*PVR 243 

PVR81=L0*PVR— M0*PUR 244 

PVZB1»L0*PVZ-H0*PUZ 245 

P VE B 1=-H0*P VRB 1 +L 0*P VZB 1 246 

SBAR1=PVEB1 247 

226 CONTINUE 248 

IF 4ABS4R1I.LE.EPS! GO TO 235 249 



SBAR1*SBAR 1+U1/R1 
GO TO 240 
7004 CONTINUE 

IF <V1*GT.VP/2..AND.K.EQ.1>V1*VP-V1 

SBAR l=SINTH**2*PUR-SINTH*COSTH*(PUZ*PVR)+COSTH**2*PVZ 

GO TO 226 

235 SBAR1=SBAR1+PUR 

C 

C 

240 ITS22MTS2 
MMM=0 

250 CONTINUE 

CALL EQOSS (PFR »PFE ) 

BIGA1=RH01*A1 

KICK=250 

CALL DVCHMKQ) 

IF (KQ.EQ.l) GO TO 9980 
TEMP=1 .-RHOSTR/RHOO 
TMP=SQRT(PO*TEMP/RHOSTR) 

IF (K.EQ.21 GO TO 251 

IF ITMP.LT.VP/2.) GO TO 251 

MPR0J=1 

TMP=UBARS1-TMP 

251 CONTINUE 
TMP6*TMP 

256 CONTINUE 

FNBIC=NBIC 

TMP1=P1+BIGA1*UBAR1-RH01*H*SBAR1*A1**2+BIGA1*{-UBAR1+C0STH+U1+SINT 
1H*V1-SINTH*L0*VBARS+C0STH*M0*VBARS)*(FNBIC) 
TMP2=PFR*TEMP+PO*RHOSTR/RHOO**2 
TMP5=PFE*TEMP 
GTMP»-RH01*A1 
IF CNBIC.EQ.O) GO TO 259 
GTMP=GTMP* < COSTH*LO+S INTH*MO ) 

259 CONTINUE 

BIGG=P0-<GTMP*TMP+TMP1) 


250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 
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PGR=PFR-( I GTMP*TMP2> /( 2.*RH0STR*TMP6 > ) 286 

PGE*PFE- ( I GTMP*TMP5 ) /( 2 .*RH0STR*TMP6 ) ) 287 

265 THP= . 5* ( 1. /RHOSTR— 1* /RHOO ) 288 

BIGH=EO-TMP*PO 289 

PHR-— TMP*PFR— • 5*P0/RH00**2 290 

PHE*l.-TMP*PFE 291 

IF (ABSIBIGHI.GT. .00011 GO TO 267 292 

BIGH=0. 293 

267 IF ( ABStBIGG I.GT..0001) GO TO 269 294 

BIGG=0 . 295 

269 CONTINUE 296 

297 

COMPUTE DELTA EO.DELTA RHOO 298 

299 

DOWN*PGE*PHR-PGR*PHE 300 

DEO= ( -B I GG*PHR+B I GH* PGR I /DOWN 30 1 

DRHOO= (-BIGH*PGE-*-BIGG*PHE > /DOWN 302 

C 303 

E02® EO+DEO 304 

IF (E02.LT.O.)E02=0. 305 

RH002=RH00+DRH00 306 

IF ( RH002.LT .RHOSTR )RHO02=RHOO 307 

KICK=265 308 

CALL DVCHK(KQ) 309 

IF (KQ.EQ.l) GO TO 9980 310 

CALL EQOSP (RH002*E02*P02) 311 

U8AR02 3 ( l*—RH0STR/RH002 )*( P02/RH0STR) 312 

IF (UBAR02«GT *0* > GO TO 2669 313 

WRITE (3*2700 ) P02,RHOQ2*EG2,R0,Z0 314 

WRITE (3*70021 P1*U1 * VI ,RH01,E1 , Z1TR1 , SBARl 315 

2700 FORMAT (4E16.8) 316 

2669 CONTINUE 317 

UBAR02=SQRT ( UBAR02 ) 318 

IF (E02.LT.1.E-5) GO TO 273 319 

IF ( ABS( (E02~E0)/E02).LT.EPS4) GO TO 273 320 

IF ( ABS(D60>.GT..01*EPS4I GO TO 275 321 



273 IF (ABS( <RH002-RH00J/RHO02).LE.EPS3) GO TO 265 
IF ( ABS(DRHOO).LT.EPS3) GO TO 285 
275 IT$22=ITS22-1 

IF (ITS22.GT.0) GO TO 280 
WRITE ( 3,278) ITS2 

278 FORMAT (35H0E ANO RHO FAILED TO CONVERGE AFTER* 14, 6H TRIES) 

WRITE (3,279) I,K,ZO,RO,EO,RHOO,PO,EO2,RHO02 ,P02 

279 FORMAT ( 1X2H I=» I4,4X2HK=, I 4/1X4HZ0 *,E15. 8*4X4HR0 =,E15.8,4X4HE0 = 
1,E15»8, 4X6HRH00 =,E15.8,4X4HP0 =,E15.8/1X4HE02=*£15.8,4X6HRH002-*E 
115.8,4X4HP02=»E15.8/1HI) 

STOP 

280 EO*E02 
RHOO=RH002 
P0=P02 

UBAR0-UBAR02 
GO TO 250 

285 E0=E02 
RH00*RHOO2 
UBAR0=UBAR02 

A0®SQRT(PFR+P02*PFE/RH00**2) 

C 

C 

CALL DVCHK(KQ) 

KICK*285 

IF (KQ.EQ.l) GO TO 9980 
IF (K.EQ.2) GO TO 286 
VBARO at VP*LO 
GO TO 287 

286 VBAR0=0. 

287 CONTINUE 

295 P0=P02 

IF (K.EQ.2) GO TO 296 
UBAR0=UBARS1-UBAR0 

296 CONTINUE 

UTO= ( RHOO*UBARO-RHOSTR*UBARS1 ) / ( RHQO-RHOSTR ) 

VO=MO*UBARO+LO*VBARO 


322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 
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UO=LO*UBARO-MO*VBARO 358 

UBAR* • 5* (UTOH+UTO ) 359 

IF IABS((UBAR-UT0H)/UBAR)*LE.EPS6) GO TO 350 360 

IF ( ABS(UBAR-UTOH) .LT.EPS6) GO TO 350 361 

ITS44= ITS44-1 362 

IF (ITS44.GT.0) GO TO 325 363 

WRITE (3,2971 ITS4,UT0H,UT0 364 

297 FORMAT (30H0UBAR FAILED TO CONVERGE AFTER, 14, 6H TRIES/1X5HUT0H=,EI 365 

15« 8, 4X4HUT0= ,EI5«8 1 366 

CALL EXIT 367 

WRITE (3,279) I ,K*ZO*RO*EO,RHOO»PO*E02»RH002 ,P02 368 

369 

INIT. FOR MORE U BAR ITERATIONS 370 

371 

UTOH=UBAR 372 

AVHO=(TAB( I,10,K)+M0)*.5 373 

AVLO=(TAB( I,9,K)+L0>*.5 374 

Z0=TA8 ( I , 1 ,K ) +U9AR*H*AVM0-VBARS*AVL0*H 375 

R0=*TAB( I,2»K )+UBAR*H*AVL0-VBARS*AVM0*H 376 

LO-AVLO 377 

H0=AVM0 378 

GO TO 195 379 

380 

ONE SHOCK POINT HAS CONVERGED 381 

382 

350 TAB2(I,1,K)=Z0 383 

TAB2( I , 2,K )=R0 384 

TAB2 ( I , 3, K )=P0 385 

TAB2 < 1 , 4,K )»U0 386 

TAB2 ( I « 5,K )=V0 387 

TAB2(I,6,K)=RH00 388 

TA82 ( I »7»K )=E0 389 

TAB2(I,8,K)=A0 390 

TAB2( I,9,K)=L0 391 

TAB2( I,10,K)=M0 392 

TAB2 ( I , 11,K ) =UBARO 393 



c 

c 

500 

505 

9980 

9985 


C 

C 

C 

C 


c 

c 

c 

c 


TAB2C I» 12,K)*VBAR0 
T A82 < I * 1 3* K ) =UT 0 
KICK=500 
CALL DVCHK1KQ) 

IF (KQ.EQ.ll GO TO 9980 


CONTINUE 

CONTINUE 

RETURN 

WRITE 13*9985) KICK 

FORMAT (32H0DIV IDE CHECK NEAR STATEMENT N0*,I5,15H IN SU8R. 
1IH1 ) 

CALL EXIT 

RETURN 

END 

SUBROUTINE FGOFI < Z X, RX, SS*QQ ) 


SHOCK/ 


COMPUTES S1,Q1 FOR SHOCK LINE 
ITERATION FOR ZI*R1 


COMMON CASE ID! 14) * ITS1* ITS2* ITS3*ITS4, IT 1 1 * I TI2 » ITI 3* IT 14* EPSl » EPS 

12*EPS3,EP$4*EPS5,EP56*EPI1,EPI2,EPI3*EPI4,EPI5*EPI6,EPI7,VP,AR,LEN 

1GTH* APR* BPR*81GAPR*BIGBPR,ESTAR. ALPHA* BETA. RHOSTR, EPRS*RHOS 
COMMON XMESH<20*20,6),XMESH2t 20*20*6) *Zt20) *R(20) *SURF(15*8) *SURF2 
1(15, 8)»TAB(15*14*2)*TAB 2(15* 14 *2)»SPART(15*2,2)»RARF <15*11) »RARF2 C 
115*4), RPART< 15,2) 


COMMON ZO* RO *P0 ,U0* VO,LO*MO,RHOO*EO * AO »UBARO , V8AR0 
COMMON NP*NT,NR»NI *NDEL* I SUB 

COMMON ZMIN, ZMAX*RMIN*R MAX* RADI US, GZ,GR» DELTA, H 

COMMON DIRCOS 
COMMON TIME 


394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
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COMMON IRARF 21 

COMMON KSTOP 22 

COMMON TPS I 23 

COMMON KKK 24 

REAL LO*MO» LENGTH, MU »KQ 25 

C 26 

DIMENSION ANSI 6) 27 

C 28 

REAL LO.MO 29 

CALL DBLTRPI ZX*RX» ANS ) 30 

U1=ANSI2I 31 

V1-ANSI3) 32 

A1=AN$(6) 33 

SS=ZX-ZO+H*( V1+A1*D IRCOS > 34 

QQ=RX-R0+H*(UI+A1*L0> 35 

RETURN 36 

END 37 

SUBROUTINE INTER(PHI*NMAX*MMAX» 

SUBROUTINE INTER 

COMPUTES INTERIOR REGION POINTS 2 

COMMON CASEIDI14I, ITS1, ITS2* I TS3* I TS4, ITII* I TI2 , ITI 3 , ITI4, EP$1, EPS 3 

12,EPS3,EPS4,EPS5,EPS6,EPI1,EP12,EPI3,EPI4,EPI5,EPI6,EPI7,VP,AR,LEN 4 

1GTH, APR, BPR,BIGAPR*B IGBPR,ESTAR, ALPHA, BETA, RHOSTR,EPRS,RHOS 5 

COMMON XMESH ( 20*20, 6 ) ,XMESH2( 20, 20,6) *Z( 20) * RI 201 , SURF ( 15,8 ) , SURF2 6 

II 15, 8), TAB! 15, 14, 2), TAB 2(15, 14, 2), SPARTI 15,2,2) ,RARFC 15,11 ) ,RARF2I 7 

115, 4>,RPART( 15,2) 8 

C 9 

C 10 

COMMON ZO, RO,PO ,U0, VO,LO,MO, RHOO*EO, AO »UBARO » VBARO 11 

C 12 

COMMON NP,NT ,NR,NI,NDEL, I SUB 13 

C 14 

COMMON ZMIN,ZMAX,RMIN,RMAX,RAOIUS,GZ,GR,OELTA,H 15 

COMMON DIRCOS 16 

COMMON TIME 17 

COMMON IRARF 18 


b 9 
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COMMON KSTOP 

COMMON TP SI 20 

COMMON KKK 21 

22 
23 

REAL LO, MO, LENGTH, MU*KO 24 

DOUBLE PRECISION PHI<20,20,6) 

DIMENSION ANSC6),LL(3l,Zim),RIUl)»Pmn.UIClll,VIUl)fRH0mn 25 

1,EI<11), AI <11),PUR( U)»PVRtll) »PAR(li) ,PUZ<11) ,PVZ(U) ,PAZ(11),PSI 26 

i( 7 ), spsidiJtCPsmn. sun 27 

c 28 

EXTERNAL FG0FI,FG0F5 29 

INTEGER CHECK, CHECK2 30 

C 31 

1 FORMAT ( 1H1 ) 32 

TSSS=1 • 1 

EPS® *0000001 33 

DO 905 J = 1 » 20 34 

DO 900 1=1,20 35 

M=TEST(Z(I ),R( Jl) 36 

ZO=ZU) 37 

RO=R(J) 38 

KICK=1 39 

CALL DVCHK(KQ) 40 

IF (KQ.EQ.l) GO TO 9980 41 

IF (M.EQ.3. AND.ZO.LT. EPS. AND. ABS (RO-RADI US) . LT. EPS ) M=i 42 

IF (M.NE.l) GO TO 900 43 

DO 2 L=1,NP 44 

IF (TAB(L,14,l).LT.O.) GO TO 20 45 

2 CONTINUE 46 

IF (IRARF.EQ.l) GO TO 20 47 

DO 3 N=1,NR 48 

IF (R(J).GT.RARF(N,2») GO TO 5 49 

3 CONTINUE 50 

GO TO 6 51 

CONTINUE 52 
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M=PICK(Z< I),R( J),3> 53 

FF*R(J)-RARF(M*1,2)-(RARF(M*2)-RARF(M+1 > 2H*<Z< l)-RARF( M+l ,1 H / f RA 54 

1RF(M, 1 )-RARFIM+l» 1 ) ) 55 

IF (FF.GT.O.) GO TO 20 56 

6 CONTINUE 57 

P02=RARF< 1*3) 58 

U02=RARF(1,4> 59 

V02=RARF<1*5) 60 

RH002=RARF<1,6I 61 

E02«RARF( 1*7 ) 62 

A02=RARF<1»8) 63 

GO TO 870 64 

20 CONTINUE 65 

CALL GUESSI2,KOD,ZO»RO, I * J *ZZ*RR,DZ, DR ) 66 

IF (K0D.EQ*1) GO TO 580 67 

WRITE C 3» 575 ) I,J,Z0,R0 68 

575 FORMAT I41H0N0 GUESS FOUNO FOR INTERIOR REGION P0INT/3H0I=I4, 6X2HK 69 

l=,I4 f i0X3HZ0=,615.8, 10X3HR0*,E15.8/IH1) 70 

CALL EXIT 71 


580 IFCTIME.GT.TSSS) GO TO 150 
CALL DBLTRPLZZtRR# ANS ) 

GO TO 151 

150 CALL DSURFT ( ZZ*RR»ANS»PHI f NMAX» UMAX) 


73 

INITIALIZE FOR 1 POINT 74 

75 

PSIU>=0. 

151 PSIC1>=0. 

PSI C 31 = 1*0472 77 

PSI(4)=2.0944 78 

PSI(6)=4. 18879 79 

PSI(7I=5. 23599 80 

NBIC*0 81 

ITI22*ITI2 82 

P0=ANS(1) 83 

U0=ANS(2) 84 
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V0=ANS(3) 85 

RHOO=ANS (41 86 

£0=AN$C5> 87 

A0=ANS(6) 68 

KICK=580 89 

CALL OVCHKIKQ) 90 

IF CKQ.EQ.l) GO TO 9980 91 

590 IF ( ABS(RO) «GT .EPS ) GO TO 594 92 

Ll-1 93 

LL(1)*4 94 

LL I 2 )=6 95 

LLL=2 96 

GO TO 620 97 

C 98 

C 99 

594 IF ( ABS ( RO-RAOIUS I «.GT«EP$ ) GO TO 600 100 

IF (Z0.GT.EPS) GO TO 610 101 

Ll=2 102 

LL ( 1 )=3 103 

LL ( 2 )=7 104 

LLL=2 105 

GO TO 620 106 

600 IF (RO.LE.RADIUS.OR.ABS<ZO).GT.EPS) GO TO 610 107 

Ll=3 108 

LL I 1 1=6 109 

LL 1 2 )*7 110 

LLL=2 111 

GO TO 620 112 

C 113 

C 114 

610 Ll=4 115 

LL 1 1 ) = 1 116 

LL 1 2 )=4 117 

LL ( 3 ) s 6 118 

LLL=3 119 

C 120 





C ITERATE FOR I VALUES 121 

C 122 

619 CONTINUE 123 

620 DO 630 KK=1*LLL 124 

LUMPsLl 125 

ISUB=LL (KK I 126 

621 CONTINUE 127 

TPSl=PSI ( ISUB) 128 

SPSIUSUBNSINITPSII 129 

CPSIUSUB>*COS(TPSI) 130 

C CALL NRIT2IZK I SUB ) »R 1 ( I SUB )*ZZtDZ«RR»DRtEPIl«EPI2 »FGOFI * ITI 1*K0DE 131 

C II 

CALL NRIT2 (Z I< ISUB It R I ( ISUBI *ZZ*DZ#RR*DR*EPI 1*EPI2 »FGOFI * ITI 1 »KOOE 131 

1,PHI ,NMAX»MMAXI 

IF (KQOE.NE.O) GO TO 6200 133 


625 IF(TIME.GT.TSSS) GO TO 125 

CALL DBLTRP(ZIUSUBI,RI( ISUB), ANSI 
GO TO 122 

125 CALL DSURFT(ZI( lSUB) f RI< ISUB), ANS. PHI, NMAX,MMAX) 


122 PI C I SUB ) = ANS <11 
C PI 1 1 SUB ) = ANS ( 1 1 

UI 1 1 SUB I = ANS ( 2 I 136 

VI ( ISUB)=ANS (31 137 

RHO I (ISUB) ® ANS ( 4 ) 138 

Eli I SUB I = ANSI 5) 139 

A I ( I SUB I = ANS (61 140 

630 CONTINUE 141 

C 142 

C 143 

KICK*630 144 

CALL DVCHK(KQ) 145 

IF (KQ.EQ.l) GO TO 9900 146 

GO TO 6400 147 

C 148 

C BICHARACTERISTIC SELECTION SCHEME 149 

C 150 




7000 WRITE (3,7001) 151 

7001 FORMAT ( 41H0BICHARACTER I STIC SELECTION SCHEME FAILED) 152 

WRITE (3,614) ZO»RO 153 

WRITE (3,7002) (PSI(MNMNI,MNMN=1,7),UA,VA,AA,UB,V8,AB,UC,VC,AC,ZZ, 154 

iOZ, RR, DR , ANG1, ANG2 155 

SUB = ISUB 156 

WRITE (3,7002) SUB, Z I ( I SUB ) ,RI ( I SUB) 157 

7002 FORMAT (4E16.8) 158 

CALL EXIT 159 

6200 CONTINUE 160 

IF (NBIC.NE.O) GO TO 7000 161 

IF (Ll.NE.2.0R.LL(l).EQ.l) GO TO 7300 162 

LL ( 1 ) s 1 163 

GO TO 619 164 

7300 CONTINUE 165 

IF (L1.NE.3) GO TO 7310 166 

IF (PSI(6) .GT.4.2) GO TO 7310 167 

PSI(6)*5. 75959 168 

GO TO 619 169 

CONTINUE 170 

IF(TIME.GT.TSSS) GO TO 222 
CALL DBLTRPT ZZ»RR, ANS) 

GO TO 223 

CALL DSURFT ( ZZ »RR, ANS*PHI » NMAX, MMAX ) 

UA=ANS( 2 ) 

UA=ANS ( 2 ) 

VA-ANS (3 ) 173 

AA«ANS(6) 174 

ZZZ=ZZ+DZ 175 

IF(TIME.GT.TSSS) GO TO 128 
CALL OBLTRPC ZZZ,RR,ANS) 

GO TO 129 

128 CALL DSURFT ( ZZZ ,RR , ANS, PHI, NMAX, MMAX) 

129 U8 s ANS ( 2 ) 

UB=ANS ( 2 ) 

VB=ANS(3) 178 


7310 


222 

223 





non 


179 

180 


AB=ANS < 6 ) 

RRR=RR+DR 

IF(TIME.GT.TSSS) GO TO 130 
CALL DBLTRPI ZZ*RRR*ANS) 

GO TO 131 

130 CALL DSURFT < ZZ*RRR» ANS?PHI *NMAX» MMAXI 

131 UC=ANS(2) 

C UC=ANS(2> 


VC=ANS ( 3 ) 183 

AC-ANSI6) 184 

MM=0 185 

TPS I=PSI 1 1 SUB) 186 

XB=ZZ 187 

YB=RR 188 

MOM* 5 189 

CA^NOH 190 

DO 6210 LM«1*2 191 

6201 OTPS 1= .01745 192 

DTPSI*CA*DTPS I 193 

TPSI=TPSI+DTPSI 194 

Al=l.+H*<VB-VA+UB-AA)*SIN<TP$I M/DZ 195 

B1*H*I VC-VA+ ( AC-AA l*SINITPSI >1 /DR 196 

C1=-(ZZ-Z0*H*IVA+AA*SIN<TPSI > H 197 

A2=H*(UB-UA*tAB-AA)*C0S(TPSI >)/0Z 198 

B2=1.+H*<UC-UA+{AC-AAI*C0S<TPSIH/DR 199 

C2=-(RR-R0*H*1UA+AA*C0S(TPSI ) ) ) 200 

0ET=A1*B2-A2*B1 201 

DELX=IB2*C1-B1*C2>/D6T 202 

DELY®{ Ai*C2—A2*Cl l/DET 203 

204 

TEST FOR SAME REGION 205 

206 

XB1=XB+DELX 207 

YB1=YB+DELY 208 

M*COHP (XB* YB*XB1 »YB1 I 209 

IF UM.EQ.2) GO TO 6700 210 


75 



IF (M.EQ.l) 60 TO 6203 211 

GO TO 6800 212 

6700 CONTINUE 213 

IF (M.NE.l) GO TO 6203 214 

6800 CONTINUE 215 

MM*MM+1 216 

IF (MM.LE.360/N0M) GO TO 6201 217 

612 WRITE (3,613) ITU 218 

613 FORMAT (44H0FAILE0 TO FIND 2 POINTS IN THE SAME REGION 21H IN SUBR 219 

1 « NR IT2 AFTER, 14, 6H TRIES) 220 

WRITE (3,614) Z0,R0 221 

614 FORMAT (1X5HZ0 =, E15.8, 4X5HR0 =,E15.8> 222 

WRITE (3,6144) LM 223 

WRITE (3,6145) M 22 4 

WRITE (3,6146) KODE 225 

WRITE (3,7002) XB, YB, XBl, YB1 226 

6144 FORMAT (4H LM=,I4> 227 

6145 FORMAT ( 3H M=,I4) 228 

6146 FORMAT ( 6H K0DE=,I4) 229 

CALL EXIT 230 

6203 GO TO (6204,6205), LM 231 

6204 ANG1=TPS I 232 

NM*Q 233 

GO TO 6210 234 

6205 ANG2=TPSI— DTPSI 235 

6210 CONTINUE 236 

AL=LLL+1 237 

DO 6300 KK=1,LLL 238 

ISUB=LL(KK) 239 

AK=KK 240 

PS I ( lSU8) = ANGl+( ANG2-ANG1 )*AK/AL 241 

6300 CONTINUE 242 

NBIC*1 243 

GO TO 619 244 

C 245 

C 246 
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6400 CONTINUE 247 

IF (Li«EQ*2*0R*Ll*EQ«3) GO TO 642 248 

C CALL NRIT2(ZI(8>,RI(8>,ZZ,DZ,RR,0R,EPU,EP!2,FG0F5, ITI1,K0DE> 249 

CALL NRIT2(ZI(8),RI(8),ZZ«DZ,RR,DR,EPI1,EPI2, FG0F5 * I TI 1 *KODE* 

1 PHI *NMAX* MMAX) 

IF (KOOE.EQ.OI GO TO 635 250 

ISUB*8 251 

WRITE (3*622) ITI1, I , J, I SUB,Z0,R0,ZZ,RR,ZI (85 *RI(8 ) 252 

622 FORMAT I27H0FAILE0 TO FIND ZI,RI AFTER, 14, 6H TRIES, 3X2HI*, 14, 3X2HJ 253 

l 3 * 14, 3X5HI SUB*, I4/1X3HZ0 3 * E15* 8, 6X3HR0 3 * E15* 8/lX3HZZ=»£15« 8 ,6X3HRR 254 

1«,E15*8/1X3HZI = , E15* 8,6X3HRI = ,EI5. 8/IHI) 255 

CALL EXIT 256 


257 

258 

635 IF(TIME.GT.TSSS) GO TO 132 
CALL DBLTRPI ZI(8),RI(8),ANS) 

GO TO 133 

132 CALL DSURFT (ZI(8),RI(8), ANS, PHI ,NMAX,MMAX) 

133 PI(8)»ANS(1) 

C PI < 8 )«ANS( 1 ) 


UI(8)=ANS(2) 261 

VI (8 )* ANS < 3 ) 262 

RHO I ( 8 )= AN S( 4) 263 

El < 8 )=AN$( 5 ) 264 

AI (8 ) = AN$ ( 6 ) 265 

C 266 

642 DO 670 IL«1,LLL 267 

NN-LL(IL) 268 

M=PART(1,ZI(NN),RI(NN),ZX,RX, DELTA, NDEL) 269 

IF (M.EQ.l) GO TO 645 270 

PUR(NN)*=0. 271 

PVR(NN)=0. 272 

GO TO 648 273 

645 IF(TIME.GT.TSSS) GO TO 134 

CALL OBLTRPi ZX,RX,ANS) 

GO TO 135 
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134 CALL DSURFTIZX,RX»ANS,PHI,NMAX,MMAX> 

135 D£N*RX-RI INN) 

C DEN*RX-RIINN ) 

PUR INN 1 = 1 ANS 1 2 I-UI I NN ) I /DEN 276 

PVRINN)*IANSI3)-VIINN) l/OEN 277 

648 M*PART (2« Z IINN ) , R I INN ) » Z X, RX,OELTA ,NDEL ) 278 

IF (M.EQ.l) GO TO 650 279 

PUZINN>*0. 280 

PVZINN>=0. 281 

GO TO 655 282 


650 IFITIME.GT.TSSS) GO TO 136 
CALL OBLTRP I ZX»RX, ANSI 
GO TO 137 

136 CALL DSURFT(ZX*RX»ANS*PHI »NMAX,MMAX) 

137 DEN*ZX-ZIINN> 


PUZ I NN ) = C ANS I 2 )-U I ( NN ) ) /OEN 285 

PVZ INN C ANS < 31-VI I NN ) ) /DEN 286 

655 SINN)*SPSII NN)**2*PURI NNI-CPSI INNI*SPSI(NN)*CPVRINN)*PUZtNN))+CPSI 287 

1 INN)**2*PVZINN) 288 

C 289 

IF IABSIRIINNH.GT.EPS) GO TO 660 290 

CON* PUR INN I 291 

GO TO 662 292 

660 CON* U 1 1 NN ) /R II NN I 293 

662 SINN)=-RHOI |NNI*H*AI C NN 1**2* I SINN l+CON 1 4-PI I NN) +RHOI INN) *AI INN)*CPS 294 

1IINN)*UIINN)+RH0IINN>*AHNN)*SPSHNN)*VIINN) 295 

670 CONTINUE 296 

1005 CONTINUE 297 

1002 FORMAT I4E16.8) 298 

KICK*670 299 

CALL DVCHKIKQ) 300 

IF IKQ.EQ.l) GO TO 9980 301 

C 302 

C COMPUTE NEW P,U,V 303 

C 304 

305 


GO TO 1690,692,695, 698), LI 
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690 DU0 s 0« 306 

U02=0. 307 

V02=<S(4)-S<6n/IRHOI<4)*AII4l*SPSII4>-RMOI(6)*AH6>*SPSI<6n 308 

P02=SI4)-RH0II41*AI<4)*$PSII4l*V02 309 

GO TO 700 310 

C 311 

C 312 

692 DP0=0. 313 

P02=0. 314 

L*LLIU 315 

TMP1=RH0I 1 7 l*RHO I(LI*AII7J*AI(LJ*ICPSI(7I *SP 51 I L I -CPS I ( L > *SPSI (731 316 

V02* I $ I L )*RHOI ( 7 )*AI I 7l*CPSl I 7 )-SI 7 ) *RHOI I L.) *AI I L) *CPSI I L. I I/TMP1 317 

U02=(Sa>“RH0I(L)*AHL)*SPSia>*V02)/CRH0IIL J*AI(U*CPSI(LH 318 

GO TO 700 319 

C 320 

C 321 

695 DP0=0* 322 

P02*0. 323 

TMPl*RH0im*RH0I(6)*Aim*AI(6l*<CPSim*SPSH6)-SPSim*CPSII6n 324 

V02= I S 1 6 )*RHOI I 7 )*AI I 7)*CPSI (7)-S(7>*RH0II6)*AI(6)*CPSI 16) ) /THP1 325 

U02=(S(6)-RH0I(6)*AI < 6)*SPSI I 6)*V02) /IRH0II6 )*AI I6)*CPSI (6) I 326 

GO TO 700 327 

698 CONTINUE 328 

LHLI1) 329 

TMP1=RH0II4)*AI<4)*CPSI I4)-RH0I (L) *AI I LI ♦CPS I I L ) 330 

TMP2=RHam>*AII4l*SPSn4»-RH0ia>*Aia}*SPSI<L» 331 

TMP3=RH0I f 6 l*AI C 6 )*CPSI I 6 J-RHOI ( L > *AI < U +CPS I ( L) 332 

TMP4 3 RH0I I 6)*AI (6)*SPSI I 6I-RH0I (L)*AI (L) *SPS I I L ) 333 

V02* I I S I4I-S ( L ) >*THP3-C St6>— SCLI l*TMPl)/l TMP3*TMP2-TMP1*TMP4) 334 

U02=(SI4»-SILI-TMP2*V02)/TMP1 335 

P02= S ( 6 l-RHO I( 6 1 *A I ( 6 >*CPS I C 6 1 *U02-RHO I (6) *A I ( 6 } ♦SPS II 6 ) *V02 336 

700 KICK=700 337 

CALL OVCHK(KQ) 338 

IF CKQ.EQ.l) GO TO 9980 339 

C 340 

C 341 





C ITERATE FOR RHOO,EO 

C 

705 ITI33* ITI 3 

ITI44MTI4 
KM S 1 

708 CONTINUE 

CALL EQOSI I P02*PGRH0#PGE tB IGGt CHECK tKRTT » A02 »E02 *RH002 * KM» EPS ) 
IF (KRTT.EQ.l) GO TO 871 

725 T1=RHOO-RHO1<0) 

T2*P I < 8 ) /RHO I C 8 1**2 
BIGH=EI(0KT2*Tl-EO 
PHE=-1. 

PHRH0*T2 
KICK=725 
CALL OVCHKCKQI 
IF IKQ.EQ.l) GO TO 9980 
C 

C COMPUTE NEW EO.RHOO 

C 

DOWN=PGE*PHRHO-PGRHO*PHE 
0E0= ( -BI GG*PHRHO+B IGH+PGRHOI /DOWN 
DRHOO= (-BI GH*PGE+B IGG*PHE ) /DOWN 
E02*E0+DE0 
RHOO2=RHO0+DRH0O 
C 

C CHECK E02tRH002 FOR CONVERGENCE 

KICK=726 
CALL DVCHKCKQ) 

IF (KQ.EQ.l) GO TO 9980 
C 

IF (ABSC0E0/E0I.LT.EPI7I GO TO 726 
IF (ABS(DE0».GT..01*EPI7I GO TO 730 

726 IF ( ABS ( ORHOO/RHOO ) »LE*EPI 6) GO TO 740 
IF { ABS(0RH00).LT.EP16) GO TO 740 

730 IT133=ITI33-1 

IF IITI33.NE.0) GO TO 735 


342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 


W 



WRITE (6,732 ) ITI3, I * J, ZO,RO,PO,UO ♦ VO,RHOO*EO, P02»U02 *V02 ,RH002, EO 
12 

732 FORMAT (33HOEO*RHOO FAILED TO CONVERGE AFTER « 14, 6H TRIES/1X2HI=* 14 
l »4X2HJ=, I4»4X2HZ = , £15.8* 4X2HR= , £15. 8/5X2HP01 8X2HU018X2HVD18X4HRH00 
116X2HE0/5X3HP0217X3HU0217X3HV0217X5HRHQ0215X3HE02/ /( 5E20.8 M 
WRITE (3,1) 

CALL EXIT 
735 E0=E02 

RHO0=RH002 

KM=0 

GO TO 708 
C 

C CHECK FOR PROPER EQUATIONS 

C 

740 CONTINUE 
PGE=-PGE 
PGRHO=-PGRHO 

IF (RHO02.GE.RH0STR) GO TO 750 
IF (E02.LT.EPRS) GO TO 750 
742 CHECK2=0 
GO TO 752 
750 CHECK2*1 

752 A02=SQRTC*PGRH0+PO2*PGE/RH002**2> 

IF C CHECK. EQ.CHECK2) GO TO 870 

ITI 44= IT 144-1 

IF C IT I44.NE.0 I GO TO 770 

WRITE C 3,755 1 ITI4, I , J,ZO, RO,PO,UO,VO, RH00,E0,AO,P02,U02,V02,RHOO2 
1,E02, A02 

755 FORMAT C38H0FAILED TO USE CORRECT EQUATIONS AFTER, 14, 6H TRIES/1X2H 
II=,I4,4X2HJ=,I4,4X2HZ=,E15.8,4X2HR*,E15.8/5X2HP018X2HU018X2HV018X4 
1HRH0016X2HEOI8X2HAO/5X3HP0217X3HU0217X3HV0217X5HRH00215X3HE0217X3H 
1A02//C6E20.6 ) ) 

WRITE (3,11 
CALL EXIT 
770 KICK*770 

CALL DVCHK(KQ) 
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387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 




IF (KQ.EQ.l) 60 TO 9980 414 

ITI33*IT13 415 

GO TO 735 416 

C 417 

C ALL VALUES HAVE CONVERGED FOR 1 INTERIOR POINT 418 

C 419 

871 KRTT*0 420 

870 XMESH2 ( I » J , 1 )=PQ2 421 

XMESH2C I» J» 2)=U02 422 

XMESH2U, J,3)=V02 423 

XMESH2 ( I, J,4)»RH002 424 

XMESH2(I,J, 5)=€02 425 

XMESH2 ( I , J ,6 )=A02 426 

KICK=900 427 

CALL DVCHK(KQ) 428 

IF (KQ.EQ.l) GO TO 9980 429 

900 CONTINUE 430 

905 CONTINUE 431 

IF ( ITS3.EQ. 1) GO TO 950 432 

CALL ITRP 433 

RETURN 434 

950 CONTINUE 435 

9980 WRITE (3,9985) KICK 436 

WRITE 13,614) Z0,R0 437 

9985 FORMAT (32H0DIVIDE CHECK NEAR STATEMENT N0.,I5,15H IN SUBR. INTER/ 438 

11H1) 439 

CALL EXIT 440 

RETURN 441 

DEBUG SUBCHK 

END 442 

SUBROUTINE EQ0S1 ( PRHO, PPP » PVV * PEE, TEE *TRHO, KICK ) 1 

COMMON CASEID(14),ITS1,ITS2,ITS3,ITS4,ITU,ITI2,ITI3,ITI4,EPS1,EPS 2 

12, EPS3, EPS4, £PS5»EPS6»EPI 1 »EPI2*EPI3,EPI4,EPI5,EPI6*EPI7*VP»AR,LEN 3 

1GTH, APR, BPR,BIGAPR,BIGBPR,ESTAR, ALPHA, BETA, RHOSTR,EPRS,RHOS 4 

COMMON XMESH(20,20,6),XMESH2(20,20,6),Z(20),R(20) , SURF (15,8), SURF2 5 

1(15,8),TAB(15,14,2),TAB2(15,14,2),SPART(15,2,2) ,RARF ( 15, 11 ) ,RARF2( 6 


V3. 



o o n o on 


115*4 ) * RPART (15*2) 7 

8 
9 

COMMON ZO* ROtPOtUO* VO*LO»MO»RHOO*EO t AO*UBARO tVBARO 10 

11 

COMMON NP*NT*NR *NI *N0EL * I SUB 12 

13 

COMMON ZMIN,ZMAX,RMIN*RMAX,RADIUS*GZ,GR, DELTA, H 14 

COMMON DIRCOS 15 

COMMON TIME 16 

COMMON IRARF 17 

COMMON KSTOP 18 

COMMON TPS I I 9 

COMMON KKK 20 

21 
22 

REAL LO,MO*LENGTH,MU,KO 23 

RHO*RHOSTR 24 

E=VP**2/8. 25 

DO 100 M=l*100 26 

ET A*RHO/RHOSTR 27 

MU*ETA-1 • 28 

G=-RHOSTR*<VP/2.)**2*UAPR*BPR/<£/<ESTAR*ETA**2)+l. » »*E*RHO+BIGAPR 29 

l*HU+BIGBPR*MU**2>*( 1 .-RHOSTR/RHO » 30 

OERIVG=t <APR+BPR/<E/IESTAR*ETA**2)+i. I) *E+BIGAPR/RH0STR+2.*BIGBPR* 31 

1MU/RH0STR+2.*E**2*BPR/(ESTAR*ETA**2*IE/(ESTAR*ETA**2)+1. 32 
1-RH0STR/RH0H>HAPR+BPR/(E/CESTAR*ETA**2>+1.) >*E*RHO*BIGAPR*MU*BIGB 33 

IPR*MU**2)*RH0STR/RH0**2 34 

DLTRHO®-G/DERI VG 35 

RHO=*RHO«-DLTRHO 36 

C IF<ABSIDLTRHO)*LT • 1. E-07 > GO TO 101 37 

IF ( ABS ( DLTRHO I .LT • 1 •E-06) GO TO 101 38 

100 CONTINUE 39 

KICK»2200 *0 

GO TO 9980 *1 

101 CONTINUE *2 
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PRHO“RHO 43 

TRHOaRHO 44 

PEE=E 45 

TEE=E 46 

PVV*VP/2. 47 

PPP=(APR+BPR/(E/(ESTAR*ETA4*2U1.I ) *£*RHO+B I GAPR*MU+BIGBPR*MU4*2 48 

9980 RETURN 49 

0EBU6 SUBCHK 

END 50 

SUBROUTINE EQ0S2 < PPP.PRHO, PEE ) i 

COMMON CASEID(14),ITS1,ITS2,ITS3,ITS4, ITU , I TI2 , IT! 3 , IT 14, EPS1 .EPS 2 

12,EPS3,EP$4, EPS5,EPS6,EPI1,EPI2»EPI3,EPI4*EPI5*EPI6»EPI7»VP,AR»LEN 3 

1GTH, APR, BPR,BIGAPR,BIGBPR,ESTAR, ALPHA, BETA, RHOSTR,EPRS,RHOS 4 

COMMON XMESHf 20, 20,6), XMESH2I 20,20,6) * Z( 201 * R( 20 ) , SURF (15,8) ,SURF2 5 

1(15, 8), TAB (15, 14, 2) ,TAB2( 15* 14* 2 1 * SPART( 15 ,2 ,2 ) »RARF ( 15,11) ,RARF2( 6 

115,4 ) ,RPART (15,2) 7 

8 
9 

COMMON ZO,RO,PO,UO, VO,LO,MO,RHOO,EO,AO,UBARO ,VBARO 10 

C 11 

COMMON NP,NT,NR,NI ,NDEL, I SUB 12 

C 13 

COMMON ZMIN, ZMAX,RMIN,RMAX»RADIUS«GZ,GR,DELTA,H 14 

COMMON DIRCOS 15 

COMMON TIME 16 

COMMON IRARF 17 

COMMON KSTOP 18 

C 19 

COMMON TPS I 20 

COMMON KKK 21 

C 22 

REAL LO, MO, LENGTH, MU, KO 23 

P*PPP 24 

RHO=PRHO 25 

E=PEE 26 

ETA=RHO/RHOSTR 27 





no n o on 


MU=ETA-1. 28 

EE=E/I£STAR*ETA**2)+1* 29 

PGRHO=E* ( APR+BPR/EE) +BIGAPR/RHOSTR* <2 . *BIGBPR*MU ) /RHOSTR+I 2. *E**2* 30 

1BPR)/CESTAR*ETA**2*EE**2) 31 

PGEMAPR+BPR/EE)*RHO-CE*BPR*RHO)/IESTAR*ETA**2*EE**2) 32 

AR*SQRTtPGRH0+PGE*P/RH0**2) 33 

RETURN 34 

DEBUG SUBCHK 

END 35 

SUBROUTINE EQ0S3<RH0,AA,E, P> 1 

COMMON CASEIDI14), ITS1, ITS2, ITS3, I TS4, ITI1, I TI2 , ITI3 , ITI4, EPS1 ,EP$ 2 

12,EPS3,EPS4,EPS5,EPS6,EPI1,EPI2,EPI3,EPI4,EP15,EP16,EPI7,VP,AR,LEN 3 

l GTH, APR, BPR,BIGAPR,BIGBPR,ESTAR, ALPHA, BETA, RHOSTR,EPRS,RHOS 4 

COMMON XME$H<20,20,6),XMESH2< 20,20,6) , Z (20) , R < 20 ) , SURF < 15, 8 ) *SURF2 5 

1( 15* 8) »TAB (15* 14,2 ) » TAB2( 15, 14, 2 ) *SPART( 15*2 *2 ) »RARF ( 15, 11 ) ,RARF2 ( 6 

115,4), RPART (15,2) 7 

8 
9 

COMMON Z0,R0,P0,UQ, VO»LO,MO,RHOO,EO, AO,UBARO, VBARO 10 

11 

COMMON NP»NT»NR*NI ,NDEL, I SUB 12 

13 

COMMON ZMIN,ZMAX,RMIN,RMAX, RADIUS, GZ, GR, DELTA, H 14 

COMMON DIRCOS 15 

COMMON TIME 16 

COMMON IRARF 17 

COMMON KSTOP 18 

COMMON TPS I 19 

COMMON KKK 20 

21 
22 

REAL 10, MO* LENGTH, MU, KO 23 

70 ETA=RHO/RHOSTR 24 

MU=ETA-1. 25 

EE=E/(ESTAR*ETA**2)+1. 26 

IF ( RHO*GT *RHOSTR ) GO TO 72 27 

<^5 



o o 


IF ( E*GE*EPRS) GO TO 74 28 

72 PGRHO*E*(APR+BPR/EE)+BIGAPR/RHOSTR-M2**BIGBPR*MU)/RHOSTR+(2.*E*«<2* 29 

1BPR)/(ESTAR*ETA**2*EE**2) 30 

PGE=(APR*BPR/EE)*RH0-(E*BPR*RH0)/(ESTAR*£TA**2*EE**2) 31 

GO TO 75 32 

74 C1=RH0STR/RH0-1. 33 

C2=EXP(—BETA*C1I 34 

C3»EXP(-ALPHA*C1**2) 35 

Tl= ( BPR*E*RHO)/EE*B IGAPR*MU*C2 36 

T2»2.*ALPHA*Ci*(RH0STR/(RH0**2>) 37 

T3=BPR*E/EE 38 

T4»(2.*E)/(ESTAR*ETA**2*EE) 39 

T4=T3*T4 40 

T5= ( 8IGAPR*C2 ) /RHOSTR 41 

T6= ( BIGAPR*MU*B6TA*RH0STR*C2 ) / ( RH0**2 1 42 

PGRH0*APR*E+C3*(T1*T2+T3+T4+T5+T6) 43 

T7=(BPR*RH0)/EE 44 

PGE=APR*RH0*C3*(T7-T7*(E/(ESTAR*ETA**2*EE) I ) 45 

75 AA=SQRT(PGRH0+PGE*P/RH0**2) 46 

RETURN 47 

DEBUG SUBCHK 

END 48 

SUBROUTINE EQOSS(PFR, PFE ) 1 

COMMON CASEID(14),ITSI»ITS2»IT$3»IT$4,ITI1,ITI2»ITI3,ITI4» EPS1* EPS 2 

12* EPS3» EPS4* EPS5»EP56,EPI1,EPI2*EPI3»EPI4,EPI5*EPI6*EPI7» VP, AR»LEN 3 

1GTH, APR, BPR,B1GAPR,B I GBPR*ESTAR, ALPHA, BETA, RHOSTR, EPRS*RMOS 4 

COMMON XMESHI 20 ,20*6) * XMESH2I 20,20,6) »Z(20),R(20),SURF(15,8) , SURF 2 5 

1(15, 8), TAB (15, 14,2), TAB 2(15, 14, 2), SPARTI 15,2,2), RARF(15»11) ,RARF2( 6 

115,4 ) ,RP ART (15,2) 7 

8 
9 

COMMON ZO* RO,PO,UO» VQ*LO,MO,RHOO» EO * AO »UBARO * VBARO . 10 

C 11 

COMMON NP,NT,NR,N1 ,NDEL, I SUB 12 

C 13 

COMMON ZMIN,ZMAX,RMIN,RMAX, RADIUS, GZ,GR, DELTA, H 14 
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COMMON OIRCOS 15 

COMMON TIME 16 

COMMON IRARF 17 

COMMON KSTOP 18 

COMMON TPS! 19 

COMMON KKK 20 

21 
22 

REAL LO * MO* LENGTH* MU *K0 23 

ETA-RHOO/RHOSTR 24 

MU=ETA-1 • 25 

26 
27 

EPP*E0/(ESTAR*ETA**2)+1. 28 

TMP= APR+BPR/EPP 29 

TMP1=BPR/ C ESTAR*ETA**2*EPP**2 > 30 

PFR=TMP*E0*(BIGAPR+2.*BIGBPR*MU) /RHOSTR+2.*EO**2*TMP1 31 

PFE=TMP*RHOO-EO*RHOO*TMP1 32 

RETURN 33 

DEBUG SUBCHK 

END 34 

SUBROUTINE EQOSP(RH002*E02,P02I 1 

COMMON CASE ID! 14)»IT$1, ITS2* ITS3*ITS4*ITI1*ITI2*ITI3*ITI4* EPS 1* EPS 2 

12*EPS3»EPS4*EPS5*EPS6*EPI1*EPI2*EPI3*EPI4*EPI5*EPI6*6PI7* VP*AR*LEN 3 

1GTH* APR* BPR* BIGAPR*BIGBPR»ESTAR* ALPHA *BETA*RHOSTR» EPRS* RHOS 4 

COMMON XMESH(20*20*6)*XMESH2( 20*20*6) *Z(20) , R (20 ) , SURF ( 15, 8 ) ,SURF2 5 

1(15*8), TAB (15*14, 2)*TAB 2(15*14, 2), SPART (15*2*2), RARFI15, 11) *RARF2( 6 

115,4)*RPART( 15*2) 7 

8 
9 

COMMON ZO*RO*PO*UO*VO*LO*MO*RHOO*EO*AO,UBARO * VBARO 10 

C 11 

COMMON NP*NT ,NR,N! *NDEL* I SUB 12 

C 13 

COMMON ZMIN,ZMAX,RMIN,RMAX, RADIUS, GZ,GR, DELTA, H 14 

COMMON OIRCOS 15 


5*7 
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COMMON TIME 16 

COMMON IRARF 17 

COMMON KSTOP 18 

COMMON TPS I 19 

COMMON KKK 20 

21 
22 

REAL LO » MO, LENGTH, MU »K0 23 

ETA-RH002/RHOSTR 24 

MU* ETA- l . 25 

P02=E02*RH002*( APR+ ( BPR*ESTAR*ETA**2) / ( E02+ESTAR*ETA**2 ) M-BI GAPR*M 26 

1U*BIGBPR*MU**2 27 

RETURN 28 

DEBUG SUBCHK 

END 29 

SUBROUTINE EQOSI I P02*PGRH0»PGE * BIGG, CHECK, KRTT * A02 * E02 »RH002 ,KM*EP 1 

IS) 2 

COMMON CASEID(14>* ITS1, ITS2, ITS3, I TS4, ITI 1 , I TI2 , I TI3 , I TI4, EPS1 ,EPS 3 

12,EPS3*£PS4» EPS5, EPS6*EP 1 1* EPI 2* EPI 3,EPI4*EP I5»EPI6»6PI7,VP,AR,LEN 4 

1GTH, APR, BPR,BIGAPR,BIGBPR,ESTAR, ALPHA, BETA, RHOSTR,EPRS,RHOS 5 

COMMON XMESH( 20, 20,6 ) , XHESH2 ( 20, 20,6) ,Z( 20) , R ( 20 ) , SURF ( 15, 8 ) *SURF2 6 

1(15, 8), TAB(15, 14, 2), TAB 2(15,14, 2), SPART (15,2,2) ,RARFI15,11), RARF2C 7 

115,4 ) , RPART (15,2) 8 

9 

10 

COMMON ZO«RO«PO,UO, VO,LO,MO,RHOO,EQ« AO«UBARO,VBARO 11 

C 12 

COMMON NP,NT , NR, N I, NOEL , I SUB 13 

C 14 

COMMON ZMIN,ZMAX,RMIN,RMAX, RADIUS.GZ.GR, DELTA, H 15 

COMMON DIRCOS 16 

COMMON TIME 17 

COMMON IRARF 18 

COMMON KSTOP 19 

COMMON TPS I 20 

COMMON KKK 21 





c 22 

C 23 

REAL LO, MO, LENGTH, MU, KO 24 

INTEGER CHECK, CHECK2 25 

IF IKM.EQ.O) GO TO 708 26 

RHOO=RHQSTR 27 

TMP1=IAPR+BPR»*RH0STR-P02/ESTAR 28 

TMP2-SQRTI TMP1**2+4**P02*APR*RH0$TR/ESTAR) 29 

E0= C -TMP 1 *TMP2 » / < 2 . * APR*RHOSTR/E ST AR ) 30 

IF (P02.GT.EPS) GO TO 708 31 

P02=0* 32 

E02=0* 33 

RHOO 2=RH0STR 34 

A02=SQRT C BI GAPR/RHOSTR I 35 

KRTT=1 36 

GO TO 870 37 

708 KRTT-O 38 

ET A=RH00/RH0 STR 39 

MU=ETA-1 . 40 

EE»E0/«ESTAR*ETA**2)*1. 41 

IF I RHOO.GT .RHQSTR > GO TO 720 42 

IF (EO.LT.EPRS) GO TO 720 43 

715 C1=RH0STR/RH00-1. 44 

8EC1=BETA*CI 45 

IF (BEC1.LT.10.E10) GO TO 716 46 

C 2=0*0 47 

GO TO 717 48 

716 C2=EXP (-BEC1 ) 49 

717 C3AL=ALPHA*C 1**2 50 

IF <C3AL*LT.10.E12) GO TO 718 51 

C3=0*0 52 

GO TO 719 53 

718 C3=EXP (-C3AL ) 54 

719 CONTINUE 55 

Tl= I BPR*EO*R HOO > /EE+B IGAPR*MU*C2 56 

T2=2 **ALPHA*C1*I RHOSTR/I RH00**2 ) I 57 





on non 


T3=BPR*E0/EE 58 

T4»I2.*E0J/(ESTAR*ETA**2*EE> 59 

T4*T3«T4 60 

T5«IBIGAPR*C2)/RH0STR 6i 

T6* C BIGAPR*MU*BETA*RH0STR*C2 )/<RH00**2 ) 62 

T7=( BPR*RH00 l/EE 63 

PGRH0=APR*E0*C3*(T1*T2+T3+T4*T5+T6) 64 

PGE=APR*RHOO+C3*(T7-T7*<EO/IESTAR*ETA**2*EEI )) 65 

B IGG=P02“APR*£0*RHOO~T1*C3 66 

CHECK=G 67 

GO TO 725 68 

720 T1*APR+BPR/EE 69 

T2=(BPR*E0I/(ESTAR*ETA**2*EE**2> 70 

BIGG=P02-T1*EO*RHOO-BIGAPR*MU-BIGBPR*MU**2 71 

PGRH0=T1*E0+BIGAPR/RH0STR+2.*BIGBPR*MU/RH0STR*T2*2.*E0 72 

PGRH0=“PGRH0 73 

PGE=Tl*RH00-RH00*T2 74 

PGE=-PGE 75 

CHECK=1 76 

725 CONTINUE 77 

870 CONTINUE 78 

RETURN 79 

DEBUG SUBCHK 

ENO 80 

SUBROUTINE SOUT2 1 

2 

PRINTS 6 LINES OF DISCONTINUITY AT TO 3 

4 

COMMON CASEID(14>,ITS1,ITS2,ITS3,ITS4»ITI1,ITI2,ITI3,ITI4,EPS1,EPS 5 

12*EPS3*EPS4fEPS5*EPS6fEPIl»EPI2»EPl3*EPI4*EPI5»EPI6*EPI7*VP»ARtLEN 6 

1GTH, APR, BPR*BIGAPR,B IGBPR.ESTAR, ALPHA, BETA, RHOSTR, EPRS » RHOS 7 

COMMON XMESHI 20* 20,6 I »XM£SH2 (20»20,6),Z(20)*R(20) * SURF ( 15* 8 ) * SURF2 8 

1(15, 8) *TAB( 15,14*2 >* TAB2( 15, 14,2)* SPARK 15*2 *2) , RARF 1 15 , II ) *RARF2 C 9 

115,4), RPARTI 15,2) 10 

11 
12 


9o 




COMMON 

Z0,R0 *PO*UO* V0,L0*M0* RHOOtEO* AO*UBARO * VBARO 

13 

c 



14 


COMMON 

NP* NT* NR, NT *NDEL* I SUB 

15 

c 



16 


COMMON 

ZMINt ZMAXtRM IN* RMAX* RADI US«GZ«GR* DELTA *H 

17 


COMMON 

D I R CO S 

18 


COMMON 

TIME 

19 


COMMON 

IRARF 

20 


COMMON 

KSTOP 

21 


COMMON 

TPSI 

22 


COMMON 

KKK 

23 


REAL LO*MOt LENGTHf MU*KO 

24 

c 



25 

4 

FORMAT 

<///30H CURVES OF DISCONTINUITY AT TO//40X20H— PROJECTILE S 

26 


1H0CK-- 

tn 

27 

6 

FORMAT 

(//35X29H— PROJECTILE PARTICLE CURVE--//) 

28 

8 

FORMAT 

I//42X16H— TARGET SHOCK—//) 

29 

10 

FORMAT 

(//38X25H— TARGET PARTICLE CURVE—//) 

30 

12 

FORMAT 

C//42X15H— RAREFACTION— //) 

31 

14 

FORMAT 

(//35X30H-- RAREFACTION PARTICLE CURVE — //) 

32 

16 

FORMAT 

( 7X1HZ19X1HR 19X1HP19X1HU19X1HV/7X3HRHQ1 7X1HE19X1HA19X1HL19X 

33 


11HM/ / ) 


34 

18 

FORMAT 

(7X1HZ19X1HR//I 

35 

20 

FORMAT 

I7X1HZ19X1HR19XIHL19X1HM//) 

36 

30 

FORMAT 

(5E20«8/5E20*8//) 

37 

35 

FORMAT 

( 2E20.8 ) 

38 

38 

FORMAT 

(4E20.8) 

39 

39 

FORMAT 

I//35X16H— FREE SURFACE—//) 

40 

40 

FORMAT 

(1H1) 

41 


WRITE 

13*4) 

42 


WRITE 

(3*16) 

43 


WRITE 

(3,30) ( ( TAB2I I*J*1)*J=1*10)»I=1*NP) 

44 


WRITE 

(3*6) 

45 


WRITE 

(3,18) 

46 


WRITE 

(3,35) ( (SPART(I,J*l),J=i,2),I*itNP) 

47 


WRITE 

(3,8) 

48 


9 / 



no non 


WRITE (3,16) 49 

WRITE (3,30) ((TAB 2(1, J, 2), J= 1,10), 1*1, NT) 50 

WRITE (3,10) 51 

WRITE (3,18) 52 

WRITE (3,35) ( ( SPART ( I,J,2),J*1,2) ,I*1*NT) 53 

WRITE (3,12) 54 

WRITE (3,20) 55 

WRITE (3,38) ( (RARF2( I, JI*J= 1,41,1*1, NR) 56 

WRITE (3,14) 57 

WRITE (3,39) 58 

WRITE (3,35) ( (SURF2( I,J), J=l,2) ,I=l,NP) 59 

WRITE (3,40) 60 

RETURN 61 

DEBUG SUBCHK 

END 62 

SUBROUTINE SOUT 1 

2 

PRINTS 4 LINES OF DISCONTINUITY AT TG-H 3 

4 

COMMON CASE 10(14), ITS1, ITS2, ITS3, 1 T$4» 1 TU , I TI 2 , ITI 3 , IT 14, EPS1 • EPS 5 

12,EP$3,EPS4,EPS5,EPS6,EPU,EPI2,EP13»EPI4,EPI5,EPI6,EPI7,VP,AR,LEN 6 

1GTH, APR, BPR,BIGAPR,BIGBPR,ESTAR, ALPHA, BETA, RHOSTR,EPRS,RHOS 7 

COMMON XMESH (20,20,6 ), XMESH2( 20,20,6) ,Z ( 20) , R ( 20 ) , SURF ( 15 , 8 ) ,SURF2 8 

1(15, 8), TAB (15, 14, 2), TAB 2(15, 14, 2) , SPART (15,2,2) ,RARF(15,11 ), RARF2 ( 9 

115,4) , RPART (15,2) 10 

11 
12 

COMMON Z0,R0,P0,U0, VO,LO,MO,RHOO,EO, AO.UBARO, VBARO 13 

C 14 

COMMON NP»NT , NR, N I, NOEL, I SUB 15 

C 16 

COMMON ZMIN,ZMAX,RMIN,RMAX,RAOIUS,GZ,GR, DELTA, H 17 

COMMON DIRCOS 18 

COMMON TIME 19 

COMMON IRARF 20 

COMMON KSTOP 21 

9o> 



COMMON TPS I 22 

COMMON KKK 23 

REAL LO» MO* LENGTH* MU* KO 24 

C 25 

4 FORMAT I///32H CURVES OF DISCONTINUITY AT T0-H//40X20H — PROJECTILE 26 

1 SHOCK — ft ) 27 

6 FORMAT (//42X16H — TARGET SHOCK—//) 28 

8 FORMAT C//42XI5H— RAREFACTION— //) 29 

10 FORMAT (7XIHZ19X1HR19X1HP19X1HU19X1HV/7X3HRH0I7X1HE19X1HA19XIHL19X 30 

11HM//I 31 

15 FORMAT (5E20.8/5E20.8//) 32 

18 FORMAT (1H1) 33 

21 FORMAT C//35X16H— FREE SURFACE — //) 34 

25 FORMAT (2E20.8) 35 

WRITE (3*4) 36 

WRITE (3*10) 37 

WRITE (3,15) ((TA8( I,J,1),J S 1»10),I S 1,NP) 38 

WRITE (3,6) 39 

WRITE (3,10) 40 

WRITE (3,15) ((TAB (I, J, 2), 1,10), 1=1, NT) 41 

WRITE (3,8) 42 

WRITE (3,10) 43 

WRITE (3,15) ( (RARFC I,J),J=1,10) ,1=1, NR) 44 

WRITE (3,21) 45 

WRITE (3,25) ( ( SURF( I,J),J=1,2)«I=1,NP) 46 

WRITE (3,18) 47 

RETURN 48 

OEBUG SUBCHK 

END 49 

SUBROUTINE PRINTIBL, ZTAB,RTAB,KK*PHI ,NNAX,MMAX) 

C SUBROUTINE PRINT! BL» ZTAB,RTAB»KK I 

OOUBLE PRECISION XS( 20) ,RU( 20 ) , ZU( 20,20,6 ) , UU( 20) , WH( 20 ) , 

1ZC0MP ( 20,20«6)«PHI(20»20,6),CETA(20,20) ,DENC , POLY 
C PRINTS INTERIOR REGION 2 

C 3 

COMMON CASEID! 14),IT$1,ITS2,!TS3*ITS4,ITI1»ITI2»ITI3,ITI4»EPS1»EPS 4 


93 



u u 


12* EPS3*EPS4* EPS5*EPS6*EPI1*EPI2*EPI3*EPI4*EPI5*EPI6»EPI7*VP,AR*LEN 
IGTHt APR# BPR* 8IGAPR*B IGBPR*E STAR* ALPHA * BETA *RHQSTR»EPRS*RHOS 
COMMON XMESH(20*20*6)* XMESH2 (20*20*6) »Z(20) * R( 20 ) « SURF ( 15. 8 ) ,SURF2 
1(15* 8)*TAB (15*14* 2)»TAB 2(15* 14*2), SPART( 1 5*2 »2 ) , RARF < L5 ,1 1 ) ,RARF2< 
115*4) *RPART (15*2) 


COMMON ZO* RO»PO*UO*VO*LO*MG*RHOO*EO,AO*UBARO,VBARO 
C 

COMMON NP»NT*NR*N! *NDEL * I SUB 
C 

COMMON ZMlN.ZMAX,RMIN,RHAX*RAOIUS*GZ*GR» DELTA *H 

COMMON OIRCOS 

COMMON TIME 

COMMON IRARF 

COMMON KSTOP 

COMMON TPS I 

COMMON KKK 

REAL LO * MO* LENGTH* MU *KQ 
C 

DIMENSION BL ( 20* 20* 6 ) *ZTAB( 20) *RTAB(20) 

C 

TSSS=i.i 

M=0 

N=0 

DO 15 1*1*20 
DO 15 J=l*20 

IF ( ABS( BL ( I * J * 1 ) )+ABS(BL( I * J* 2 ) )+ABS( BL (I*J*3))) 20*15,20 

15 CONTINUE 

WRITE (3*18) 

18 FORMAT I 15H1TABLES ALL = 0/1H1) 

CALL EXIT 
20 11=1 

DO 30 1=11,20 

IF ( ABS(BL( I*l*l))tABS(BL( I *1*2) )*ABS(BL( 1*1 *3) ) > 30*22*30 

00 25 J=l* 20 


5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 


27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 


22 




IF ( ABS ( BL ( I , J, 1 ) ) +ABS( BLl 1 , J , 2 ) ) + ABS< BL(I,J,3)) I 

30,25,30 

38 

25 

CONTINUE 


39 


12=1-1 


40 


GO TO 35 


41 

30 

CONTINUE 


42 


12=20 


43 

35 

DO 45 J=lt 20 


44 


IF (ABS(Bl( 11,4,1) )+A8S(BL( I1,J,2> >+ABS(BL< I 1, J,3))) 45,37,45 

45 

37 

DO 40 1=11,12 


46 


IF ( ABS (BL ( I»4»1))+ABS(8L( 1 , 4,2) H-ABSI BL ( I ♦ J ,3 1) ) 

45,40,45 

47 

40 

CONTINUE 


46 


J2= J-l 


49 


GO TO 50 


50 

45 

CONTINUE 


51 


J2=20 


52 

50 

Jl=l 


53 

C 



54 

C 

PRINT TABLE 


55 

C 



56 


GO TO ( 52, 56 J ,KK 


57 

52 

WRITE 13,53) 


58 

53 

FORMAT (//24H0INTERI0R REGION AT TO-H///) 


59 


GO TO 62 


60 

56 

WRITE (3,57) 


61 

57 

FORMAT C//22H0INTERI0R REGION AT TO///) 


62 

62 

DO 70 1=11,12 


63 


WRITE (3,64) ZTAB(I) 


64 

64 

FORMAT ( ///7H0ZTAB =,F10.4//7X1HR9X1HP17X1HU17X1HV17X3HRH015X1HE17 

65 


1X1HA//) 


66 


M=M+1 




XS(M ) = ZTAB( I ) 




UU(M)=1.0 




DO 69 J=J1,J2 


67 


WRITE (3,68) RTABI J),(BL(I,J,K),K=1,6) 


68 


N=N+I 




RU(N)=RTAB( J) 






o o 


WW(N )=1.0 
DO 156 IK=1* 6 
ZU(M,N1=BL(I,J,4> 

ZZ(M,N)=BL(I*J*1) 

156 ZU(M»N,IK)=8L(I, J* IK) 

66 FORMAT ( F12. A, 6E18.8 ) 

69 CONTINUE 
MMAX*N 
N=0 

70 CONTINUE 
NMAX=M 

C IFITIME.LT. TSSS) GO TO 80 

333 IMAX= I 2 ♦ 1— I 1 
JMAX=J2+1-J1 

CALL SURFITI XS»UU* RU *WW* ZU,NMAX*MMAX, IMAX* JMAX »C£T A »PHI » ZCOMP t 
1SQD, SQDC, SDC, DFC ) 

WRITE! 3* 100) 

100 FORMAT ( * *** M 

DO 88 IK=1,6 
DO 48 1=1, IMAX 
DO 48 J=l, JMAX 
DENC=0.00 
DO 43 IS=l,NMAX 
K=NMAX-I$-«-l 
POLY*PHI CK,MMAX , IK) 

IF C MMAX-1 143,43,46 

46 00 42 IT=2,MMAX 
L=MMAX- IT+1 

42 POLY=POLY*RU< JI+PHI <K,L, IK) 

43 DENC=OENC*XS III ♦POLY 
ZCOMP ( I , J, IK )=DENC 

48 CONTINUE 

88 CONTINUE 
80 WRITE (3,821 

82 FORMAT (1H1I 

RETURN 




no r> n n n n 


DEBUG SUBCHK 

END 75 

SUBROUTINE NRIT2C X,Y,X0,0X,Y0,DY,EX,EY,FG0F, IT,KOOE, 
lPHI«NMAXf MMAX) 

SUBROUTINE NRIT2CX, Y,X0,DX,Y0,DY, EX,EY,FGOF, IT,KODE> 1 

2 

NEWTON-RAPHSON METHOD FOR SOLUTION OF 3 

TWO NON LINEAR EQUATIONS IN TWO UNKNOWNS 4 

5 

COMMON CASEID(14),ITSI,ITS2,ITS3,ITS4,ITI1,ITI2,ITI3,ITI4,EPS1,EPS 6 

12*EPS3,EPS4,EPS5,EPS6,EPI1,EPI2,EPI3,EPI4,EPI5,EPI6,EPI7,VP,AR,LEN 7 

1GTH, APR, BPR,B I GAPR,BIGBPR, ESTAR, ALPHA, BETA, RHOSTRtEPRS, RHOS 8 

COMMON XMESH(20 ,20,6) »XMESH2 ( 20, 20,6) » Z( 20) » R ( 20 ) » SURF ( 15* 8) *SURF2 9 

1U5,8>,TABU5,14,2),TAB2<15,14,2>,SPART<15,2,2),RARF(15,U),RARF2< 10 

115»4)»RPART(15,2) 11 

12 
13 

COMMON Z0» RO,PO,UO, VO,LO«MO«RHOO,EO , AO ,UBAR0 , VBARO 14 

C 15 

COMMON NP»NT »NR»NI*NDEL* ISUB 16 

C 17 

COMMON ZM IN tZMAX*RMIN,RMAXt RADI US* GZtGR* DELTA* H 18 

COMMON DIRCOS 19 

COMMON TIME 20 

COMMON IRARF 21 

COMMON KSTOP 22 

COMMON TPS I 23 

COMMON KKK 24 

REAL LO, MO, LENGTH, MU, KO 25 

OOUBLE PRECISION PHI(20,20,6I 

C 26 

TSS$=l.l 

XB= XO 27 

YB=YO 28 

OXX*DX 29 

OYY=DY 30 

9 ? 



u o 


OELX 1*0 
DELY1*0 
K0DE=0 

1 CONTINUE 

DO 50 1*1* IT 
KK=0 

XX=XB+DXX 

YY=YB+DYY 


IFITIME.LT. TSSS) GO TO 266 
CALL FG0FIXB#YY,F2,G2.PHI f NMAX.MMAX) 
CALL FG0F<XX,YB*F1,G1 T PHI*NMAX,MMAX) 
CALL FGOF(XB*YB,FO,GO*PHI*NMAX*MMAX) 
GO TO 267 

266 CALL FG0FCXB,YY,F2,G2I 
CALL FGOFI XX*YB*F1«G1) 

CALL FGOF(XB,YB,FO,GOI 

267 A1*(F1«F0»/DXX 
Bl=< F2-F0I/DYY 
C1*-F0 

A2= ( Gl—GO) /DXX 
B2= ( G2-G0 ) /DYY 
C2=-G0 

DET*A1*B2-A2*B1 

IF (OET.EQ.O.) GO TO 920 

DELX= ( B2*C1-B1*C2 > /OET 

OELY* ( Ai*C2-A2*Cl ) /OET 

IF ( ABS ( DELX ) .GT • .001) GO TO 8 

0ELX*0. 

8 IF ( ABS I DEL Y) .GT. .001 1 GO TO 9 
DELY*0. 

9 CONTINUE 

SDEL*ABS COELX+OELXi) +ABS ( DEL Y+DELY1 ) 

DELX1=DELX 

DELY1*DELY 


31 

32 

33 

34 

35 

36 

37 

38 

39 

40 


45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 




o o o 


62 

TEST FOR SAME REGION 63 

64 

DO 10 J=l* IT 65 

XB1*XB+DELX 66 

YB1=YB«-DELY 67 

IF IYBI.LE.0.)YB1=0. 68 

M=COMP<XB#YB» XB1»YB1 ) 69 

IF (M.EQ.l) GO TO 15 70 

11 CONTINUE 71 

KK= 1 72 

DELX*.S*DELX 73 

DELY=.5*DELY 74 

10 CONTINUE 75 

GO TO 930 76 

15 IF I A8S( XB-XB1 ) .GT.EX ) GO TO 45 77 

IF ( ABSI YB-YBl ) .GT.EY) GO TO 45 78 

IF CKK-NE.OI GO TO 45 79 

X=XB1 80 

Y=YB1 81 

K0DE*0 82 

RETURN 63 

45 CONTINUE 84 

IF ( KODE .NE. 1 ) GO TO 46 85 

IF (SDEL*GT«EPI1) GO TO 46 86 

DELX*.5*DELX 87 

0ELY*.5*DELY 88 

GO TO 9 89 

46 XB=XB1 90 

YB=YB1 91 

DEl=DEtTA 92 

DO 70 N=lt NOEL 93 

XB2=XB*DEL 94 

M=COMP (XBt YB*XB2* YB I 95 

IF IM.NE.1I GO TO 55 96 

DXX=OEL 97 


9 ? 



55 


60 TO 80 
XB2=XB-DEL 

M=C0MP(XB,YB,XB2,YB) 

IF (M.NE.l > GO TO 60 
DXX--DEC 
GO TO 80 
60 DEL=.5*DEL 

70 CONTINUE 

GO TO 980 
80 DEL=DELTA 

DO 100 N=1*NDEL 
YB2=YB+DEL 

M=C0MP(XB,YB,XB,YB2) 

IF (M.NE.l) GO TO 85 

DYY=*DEL 

GO TO 50 

85 YB2=YB-DEL 

M=COMP C XB» YB,XB»YB2 ) 

IF (M.NE.l) GO TO 90 

DYY=~D£L 

GO TO 50 

90 0EL=.5*DEL 

100 CONTINUE 

GO TO 990 
50 CONTINUE 

X=XB1 
Y=YB1 

IF CKODE.EQ.il RETURN 

K0DE*1 

GO TO 1 

920 WRITE (3,922) I 

922 FORMAT ( 46H0DETERMINANT IS 0 IN SUBR. NRIT2 FOR ITERATIONt 14) 
GO TO 950 
930 K0DE=2 

RETURN 

WRITE (3,952) XO,YO, XB,YB»XB1, YB1,DELX, DEUY 


98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 


/Z>d> 


950 



u u 


952 FORMAT ( 1X5HZ0 =,E15.8,4X5HR0 = f El5. 8/1X5HZB =»E15*8»4X5HRB =* 134 

1E15.8/1X5HZB1 =, E15.8.4X5HRB1 =» E15. 8/lX5HDELZ=»E15*8»4X5H0ELR=*El 135 

15.8/1H1) 136 

CALL EXIT 137 

RETURN 136 

980 K0DE=3 139 

RETURN 140 

990 K0DE=4 141 

RETURN 142 

DEBUG SUBCHK 

END 143 

FUNCTION COMP I ZP»RP»ZPI»RP1) 1 

2 

DETERMINES IF 2 POINTS ARE IN THE SAME REGION 3 

COMMON CASEIDC14J.ITS1, ITS2, ITS3, ITS4, ITI1* I TI2, ITI3, ITI4, EPSUEPS 4 

12,EPS3,EPS4,EPS5fEPS6,EPU.EPI2»EPI3,EPI4fEPI5,EPI6,EPI7,VP f AR,LEN 5 

1GTH» APR» BPR* BIGAPR»B IGBPR»ESTAR « ALPHA* BETA* RHOSTR* EPRS * RHOS 6 

COMMON XMESH(20*20,6),XMESH2I20,20*6».Z(20) *RI20J , SURF (IS, 8) ,SURF2 7 

1<15,8»,TAB(15,14,2>,TAB2<15,14,2)*SPARTU5,2,2) ,RARF ( 15 , 11 ) , RARF2 « 8 

115*4 1 » RPART ( 15*2) 9 

C 10 

COMMON Z0» RO,PO*UO* VO,LO*MO,RHOO,EO, AO*UBARO , VBARO 11 

C 12 

COMMON NP*NT ,NR*NI *NOEL * I SUB 13 

C 14 

COMMON ZMIN*ZMAX*RMIN,RMAX,RADIUS»GZ,GR»DELTA»H 15 

COMMON DIRCOS 16 

COMMON TIME 17 

COMMON IRARF 18 

COMMON KSTOP 19 

COMMON TPS I 20 

COMMON KKK 21 

REAL LO,MO*LENGTH,MU,KO 22 

EPS=. 0000001 23 

IF (RP1.LT.0.I GO TO 80 24 

IF (ZP1.GE*0.I GO TO 4 25 


yyy 



IF (RPl.GT.RADIUS) GO TO 80 26 

C 27 

C FINO CONTROL CONSTANTS FOR ZP,RP 28 

C 29 

4 CONTINUE 30 

IF ( ITS3.EQ. 1 ) GO TO 33 31 

IF ( IRARF. EQ.l ) GO TO 13 32 

M=PICK(ZP,RP,3) 33 

IF (ZP.GT.RARF<M,l).ANO.M.NE.l)MsH-l 34 

FF=RP-RARF < M+l , 2 )- 1 RARF C M, 2)-RARFC M+l , 2 >) *( Z P-RARF < M+ 1 , 1 )) / ( RARF I M 35 

It 1 ) -RARF I M+l, 1 ) ) 36 

IF IFF. LT. 0.1 GO TO 11 37 

10 NN=i 38 

GO TO 13 39 

11 NN=0 40 

13 CONTINUE 4 ]i 

00 22 K=l ,2 42 

M=PICK (ZPlfRPltK) 43 

IF <RPl.LT.TAB(M,2,K).AND.M.NE.i)H=M-l 44 

5 CONTINUE 45 

FF=Z PI-TAB ( M+l, l*K ) — C TAB CM, 1,K >— TAB I M+l » 1 » K ) )♦( RP1-TAB ( M+l , 2, K ))/ C 46 

1TAB|M,2,K)-TABIM+1,2,K) ) 47 

IF (K.EQ.2) GO TO 17 48 

IF I RPi.GT .RADIUS) GO TO 21 49 

IF (FF.LT.-EPS) GO TO 90 50 

GO TO 21 5 ] 

17 IF < FF.GT.EPS) GO TO 100 52 

21 IF (RP.GT. RADIUS) GO TO 22 53 

H*PICK(ZP1,RP1,4) 54 

FF=ZP1-SURF< M+l, l)-(SURF<M,l)-SURF<M+l,m*(RPl-SURF<M+l,2>)/< SURF 55 

1 (M»2 ) -SURF! M+l, 2 ) ) 56 

IF IFF) 80,22,22 57 

22 CONTINUE 58 

IF I IRARF. EQ.l) GO TO 33 59 

M=P I CK ( ZP1 »RP1 , 3 ) 60 

IF (ZP1.GT.RARF(M,1) .AND *M .NE. 1 )M=M-1 61 





FF=RPl-RARF<M-H*2l-<RARFCM,2)-RARFlM+l f 2)>*<ZPl-RARF<M+l,in/<RARF 62 

l<M,l>-RARF<M+ltl)l 63 

IF (FF.LT.O.) GO TO 31 64 

30 NNI=1 65 

GO TO 32 66 

31 NN1=0 67 

32 IF CNN1.NE.NN) GO TO 110 68 

33 CONTINUE 69 

C0MP=1 70 

C0MP*C0MP+,2 71 

RETURN 72 

80 C0MP=2 73 

C0MP*C0MP+*2 74 

RETURN 75 

90 C0HP*3. 76 

C0MP*C0MP+.2 77 

RETURN 78 

100 C0MP*4. 79 

C0MP=C0MP+.2 80 

RETURN 81 

110 COMP* 5* 82 

C0MP*C0MP+.2 83 

RETURN 84 

DEBUG SUBCHK 

END 85 

FUNCTION PICKIZPtRP* KODE ) 1 

C 2 

C DETERMINES 2 CLOSEST CONSECUTIVE POINTS ON SPECIFIED 3 

C LINE OF DISCONTINUITY TO A GIVEN POINT 4 

C 5 

COMMON CASEI0U4), ITSlf ITS2* ITS3, I TS4, I TI 1, I TI 2 , 1 TI 3, IT 1 4, EPS1 » EPS 6 

l2,EPS3*EPS4»EPS5,EPS6,EPU,EPI2,EPI3,EPI4,EPI5,EPI6»EPI7,VP,AR t LEN 7 

1GTH* APR#BPRt 81 GAPR*B IG8PR* ESTAR* ALPHA t BETA* RHOSTR»EPRSfRHOS 8 

COMMON XMESH(20,20f6J,XMESH2(20,20t61,Z<20),RI20>,SURFC15,8> ,SURF2 9 

lC15*8)»TABC15»14»2)»TAB2(15*14f2)» SPAR T 1 15*2*2) * RARF (15*11) *RARF2 ( 10 

115*4)*RPART( 15*2) U 



C 12 

C 13 

COMMON ZO* RQ»PO* UO* VO*LO*MO*RHOO*EQ» AO»UBARO *VBARO 14 

C 15 

COMMON NP*NT*NR*NI *NDEL* I SUB 16 

C 17 

COMMON ZMIN, ZMAX,RMIN,RMAX,RADIUS»GZ»GR*DELTA,H 18 

COMMON DIRCOS 19 

COMMON TIME 20 

COMMON IRARF 21 

COMMON KSTOP 22 

COMMON TPS I 23 

COMMON KKK 24 

REAL LO* MO* LENGTH* MU* KO 25 

C 26 

GO TO (5*10* 100* 300) *KOD£ 27 

5 NN=NP 28 

K=1 29 

GO TO 15 30 

10 NN=NT 31 

K=2 32 

15 AA=(TAB(1,1*K)-ZP)**2*(TAB(1,2,K>-RP)**2 33 

C 34 

C SEARCH SHOCK TABLES 35 

C 36 

DO 60 N*2,NN 37 

A=(TAB(N,1,K)-ZP)**2+(TA8(N*2,K)-RP)**2 38 

IF (A.GE.AA) GO TO 23 39 

A A* A 40 

60 CONTINUE 41 

P I CK=NN- 1 42 

PICK=P ICK+.2 43 

RETURN 44 

23 PICK=N-1 45 

PICK=PICK+.2 46 

RETURN 47 





100 AA={RARF(1,1)-ZP>**2*<RARFC1,2I-RP)**2 48 

C 49 

C SEARCH RAREFACTION TABLE 50 

C 51 

00 200 N=2*NR 52 

A*<RARF(N,1>-ZP >**2-MRARFIN,2l-RP)**2 53 

IF (A.GE.AA) GO TO 203 54 

AA=A 55 

200 CONTINUE 56 

PICK=NR-1 57 

PICK«PICK+.2 58 

RETURN 59 

203 PICK-N-1 60 

PICK-P ICK+*2 61 

RETURN 62 

300 AA=<$URFU»1WP)**2’MSURF(1,2)-RP)**2 63 

C 64 

C SEARCH FREE SURFACE TABLE 65 

C 66 

00 400 N*2tNP 67 

A*ISURF(Nt l)-ZP)**2+«$URF(Nt2)-RP»**2 68 

IF (A.GE.AA) GO TO 303 69 

AA=A 70 

400 CONTINUE 71 

PICK=NP-1 72 

PICK*PICK+.2 73 

RETURN 74 

303 P ICK=N- 1 75 

PICK=PICK+.2 76 

304 CONTINUE 77 

RETURN 78 

0E8UG SUBCHK 

END 79 

SUBROUTINE GUESS ( K0D1»K0D2* ZP»RP» 1 2 * K2 *ZG# RG tDZ »DR) 1 

C 2 

C DETERMINES STARTING POINT AND DELTAS 3 


/05 



o o o o 


FOR NEWTON-RAPHSON ITERATION 


COMMON CASEID(14)*ITS1»ITS2*ITS3*ITS4*ITI1*I 
12» EPS3» EPS4i 
IGTHt APR.BPR, 

COMMON XMESHI20i 
l (15*6) »TABC 
115*4) »RPART ( 15*2 ) 




LEN 



COMMON ZO * RO * PO * UO * VO * L.O * MO * RHOO * E 0 » AO * UB ARO * VB ARO 
COMMON NP*NT *NR* NI*NOEL* I SUB 

COMMON ZMIN,ZMAX,RMIN,RMAX,RADIUS»GZ*GR»DELTA*H 

COMMON DIRCOS 
COMMON TIME 
COMMON IRARF 
COMMON KSTOP 
COMMON TPS I 
COMMON KKK 

REAL LO*MO*LENGTH*MU*KO 
KS*0 

IF (KODi.EQ.2l GO TO 10 
ZG=TAB( I2»1»K2) 

RG=TAB ( 12* 2*K2 ) 

IF (IRARF.EQ.l) GO TO 9 

FF=RG-RARF (M*i * 2 }-(RARF ( M* 2 )-RARFt M+i *2 ) )*( ZG-RARF (M+l*i)l/ (RARFIM 

ltU-RARFIIMl.il I 
IF (FF.GT.O. ) GO TO 9 
ZG= U. -.02/1 RAD IUS~RG))*ZG 
RG«RG*.02 

IF (RG.GT. (RADIUS-. 01)1 GO TO 110 
GO TO 2 


4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 





9 CONTINUE 40 

GO TO 50 41 

10 J J J=NT-1 42 

IF ( ITS3.EQ. 1 ) GO TO 26 43 

DO 24 M=l* JJ J 44 

IF (RP.GT,TAB<M+1,2,2).0R.RP.LT.TAB(M,2,2) ) GO TO 24 45 

GO TO 25 46 

24 CONTINUE 47 

25 CONTINUE 48 

FF=ZP-TAB<M*i,l,2)-<TA8<M,l,2)-TAB<M+l,l,2))*<RP-TAB<M+i,2,2))/<TA 49 

1B(M»2»2)-TAB<M+1,2»2) ) 50 

IF ( FF.GT . 0. ) GO TO 20 51 

26 CONTINUE 52 

ZG*ZP 53 

RG=RP 54 

GO TO 50 55 

20 IK=M 56 

M=C ROSS <T ABC IK,1,2),TAB< IK, 2, 2* ,TA6< IK+1,1,2 ) ,TAB< IK+1,2,2) ,0. ,0. , 57 

1 ZP, RP* ZG, RG ) 58 

GO TO <50, 920, 930), M 59 

C 60 

C COMPUTE DELTAS 61 

C 62 

50 DEL=OELTA 63 

C 64 

C Z DELTA 65 

C 66 

LL=0 67 

52 DO 70 N=1*NDEL 68 

ZZ=ZG+0EL 69 

M=»COMP (ZG,RG,ZZ,RG) 70 

IF CM.NE.l) GO TO 55 71 

DZ=DEL 72 

GO TO 80 73 

55 ZZ=ZG-DEL 74 

M=COMP (ZG,RG,ZZ,RG) 75 


/&7 



IF (M.NE.l) GO TO 60 

DZ=-DEL 

GO TO 80 

60 DEL*.5*DEl 

70 CONTINUE 

LL=LL*1 

IF I LL •EQ*3) GO TO 75 
RG=RG-DELTA/5. 

DEL=DELT A 
GO TO 52 
75 K0D2=2 

RETURN 

80 DEL=DELTA 

IF (KS.EQ.l) GO TO 120 

C 

c R DELTA 

C 

LL=0 

82 DO 100 N=l*NDEL 

RR=RG*OEL 

M=COMP(ZG*RGtZG*RR) 

IF (M.NE.l) GO TO 85 
DR=DEL 

IF (KS.EQ.l) GO TO 50 
GO TO 120 
85 RR=RG-OEL 

M=COMP( ZG*RG*ZG»RR I 
IF ( M.NE.l I GO TO 90 
DR=-DEL 

IF (KS^EG.l) GO TO 50 
GO TO 120 
90 DEL=.5*DEL 
100 CONTINUE 
108 CONTINUE 
LL*LL*1 
FLL=LL 


76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 
87 
68 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 





IF (LL.EQ.5) GO TO 110 112 

C 113 

104 ZG1«ZG+DELTA/5.*FLL*(-1.)**LL 114 

M*C0MP(ZG»RG*ZG1»RG) 115 

ZG=ZG1 116 

IF (M.NE.l ) GO TO 108 117 

K$= 1 118 

GO TO 82 119 

110 K0D2=2 120 

RETURN 121 

120 K002=l 122 

RETURN 123 

920 WRITE 1 3*922) 124 

922 FORMAT (42HOERROR FOR COINCIDENT LINES IN SUBR. GUESS) 125 

GO TO 950 126 

C 127 

930 WRITE (3*9321 128 

932 FORMAT (40H0ERR0R FOR PARALLEL LINES IN SUBR. GUESS) 129 

C 130 

950 WRITE (3,952) K0D1 , I 2,K2 ,ZP,RP 131 

952 FORMAT ( 1X5HK0DI*, I4,4X3HI2<=, I4,4X3HK2=* I4/1X3HZP=,E15. 8,4X3HRP=,E 132 

115.8/1H1) 133 

XYZ=-2 . 134 

ZYX*SQRT(XYZ) 135 

CALL EXIT 136 

RETURN 137 

END 138 

FUNCTION CR0SS(X1,Y1,X2,Y2,X3,Y3,X4,Y4,X,Y) l 

C 2 

C FINDS INTERSECTION OF TWO STRAIGHT LINES 3 

C 4 

EPS*. 0000001 5 

A1=Y 2-Y1 6 

B1=X1-X2 7 

C1=XI*A1*Y1*B1 8 

A2=Y4-Y3 9 





B2=X3-X4 

C2=X3*A2+Y3*B2 

DET«AI*B2-A2*B1 

01=C1*B2-C2*B1 

D2®A1*C2-A2*C1 

IF I ABS(DET) *LE*£PS ) GO TO 10 

X=Dl/DET 

Y=D2/DET 

CROSS*l 

CR0SS=CR0SS*.2 

RETURN 

10 IF (ABS(Ol).GT.EPS) GO TO 20 
IF (ABSID2).LE.EPS> GO TO 30 
20 CR0SS=3 

CR0SS*CR0SS+ *2 
RETURN 
30 X*X1 

Y=Y 1 
CR0SS*2 

CR0SS=CR0SS+.2 
316 CONTINUE 
RETURN 

DEBUG SUBCHK 
END 

FUNCTION PART ( MODE *ZP»RP*ZX*RX*DELTA*NDEL) 

C 

C LOCATES A POINT IN THE SAME REGION AS A GIVEN POINT 

C TO BE USED IN COMPUTING A PARTIAL 

C M0DE=1,WITH RESPECT TO R 

C M0DE*2t WITH RESPECT TO Z 

C 

GO TO 1 2» A) » MODE 
2 DR® DELTA 

DZ=0. 

GO TO 8 
4 DR=0. 


10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 


//d> 
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DZ=DELTA 13 

8 00 SO NN-l.NOEL 14 

RR=RP*DR 15 

ZZ=ZP^DZ 16 

M«COMP(ZP,RP,ZZ,RR) 17 

IF IM.EQ.l) GO TO 60 18 

RR=RP-DR 19 

ZZ*ZP-DZ 20 

M=CQMP< ZP*RP*ZZ*RR) 21 

IF (M.EQ.l) GO TO 60 22 

DZ=DZ*.5 23 

DR=DR*.5 24 

50 CONTINUE 25 

PART=2 26 

PART»PART+*2 27 

RETURN 28 

60 ZX=ZZ 29 

RX=RR 30 

PART=1 31 

PART=PART+.2 32 

RETURN 33 

DEBUG SUBCHK 

END 34 

FUNCTION P ICK2C ZP»RP»KQOEI 1 

2 

DETERMINES 2 CLOSEST CONSECUTIVE POINTS ON SPECIFIED 3 

LINE OF DISCONTINUITY TO A GIVEN POINT 4 

COMMON CASEIDI 14),ITS1, ITS2, I TS3, I TS4, I TI 1* I TI 2 , ITI 3, ITI4, EPS1 ,EPS 5 

12,EPS3,EPS4,EP$5,EPS6,EPI1,EPI2,EPI3,EPI4,EPI5,EPI6,EPI7,VP,AR,LEN 6 

1GTH, APR, BPR,BIGAPR,BIGBPR,E$TAR, ALPHA, BETA, RHOSTR,EPRS,RHOS 7 

COMMON XMESHt 20, 20, 6 ) , XMESH2I 20,20,6),Z(20),R(20), SURF (15,8) , SURF2 8 

i(15*8)»TABI15*14*2),TAB2(15,14*2l»SPART(15,2,2) ,RARF (15,111, RARF2I 9 

115,4I,RPART( 15,2) 10 

C 11 

COMMON ZO,RO,PO,UO, V0,L0, MO,RHOO,EO , AO,UBARO, VBARO 12 

COMMON NP,NT ,NR,NI ,NDEL, I SUB 13 

/// 



C 1* 

COMMON ZMIN, ZMAX.RMIN.RM AX .RADI US. GZ.GR. DELTA, H 15 

COMMON DIRCOS ** 

COMMON TIME l 7 

COMMON IRARF 1® 

COMMON KSTOP I 9 

COMMON TPS I 20 

COMMON KKK 21 

REAL LO.MO.LENGTH.MU.KO 22 

C 23 

GO TO 15, 10. 100. 205, 210, 300.500). KODE 24 

5 NN=NP 25 

K= I 26 

GO TO 15 27 

10 NN=NT 28 

K=2 29 

15 AA“ (TAB2I 1 , 1 »K )-ZP )**2+( TAB2I1.2.K )— RP ) **2 30 

C 31 

C SEARCH SHOCK TABLES 32 

C 33 

DO 60 N*2,NN 34 

Aa (TAB2(N, 1. K )-ZP )**2*C TAB2I N.2 , K)-RP ) **2 35 

IF CA.GE.AA) GO TO 23 36 

A A* A 37 

60 CONTINUE 38 

PICK2=NN-1 39 

PICK2=PICK2*.2 40 

RETURN *1 

23 PICK2*N-1 42 

PICK2=PICK2+.2 *3 

RETURN 44 

100 AA=f RARF2 1 1. 1 )-ZP )**2+( RARF2 (1,2 l-RP ) **2 45 

C 46 

C SEARCH RAREFACTION TABLE 47 

C 48 

49 


// '&? 


DO 200 N=2,NR 



A=CRARF2(N,1>-ZP»**2'MRARF2IN*2»-RP>**2 50 

IF (A.GE.AA) GO TO 203 51 

AA-A 52 

200 CONTINUE 53 

PICK2*NR“1 54 

PICK2=PICK2+.2 55 

RETURN 56 

203 PICK2=N-1 57 

PICK2=PICK2+.2 58 

RETURN 59 

205 NN=NP 60 

K=1 61 

GO TO 215 62 

210 NN=NT 63 

K*2 , 64 

215 AA= CSPART(ltlfK)-ZP) **2+( S PARTI lf2»K)-RP) **2 65 

C 66 

C SEARCH SHOCK PARTICLE TABLES 67 

C 68 

DO 260 N=2tNN 69 

A= ( SPART IN* 1 tK )-ZP )**2+( SPARTI N* 2# K )-RP ) **2 70 

IF (A.GE.AA* GO TO 223 71 

AA~A 72 

260 CONTINUE 73 

PICK2=NN-1 74 

PICK2=PlCK2+.2 75 

RETURN 76 

223 PICK2=N-1 77 

PICK2=PICK2+.2 78 

RETURN 79 

300 AA=» (RPART f It 1 l-ZP )**2‘M RPART ( 1 »2 l—RP) **2 80 

C 81 

C SEARCH RAREFACTION PARTICLE TABLE 82 

C 83 

DO 400 N=2#NR 84 

A=f RPART (N»l I-ZP )**2-MRPART(N»2)-RP)**2 ‘ 85 


//3 



IF I A.GE.AA) GO TO 403 86 

A A- A 07 

400 CONTINUE 86 

PICK2»NR-1 89 

PICK2=PICK2+.2 90 

RETURN 91 

403 P ICK2=N- 1 92 

PICK 2 ® PICK 2+ *2 93 

RETURN 94 

500 AA=MSURF2U, 1>-ZP)**2+I SURF2U,2)-RP )**2 95 

C 96 

C SEARCH FREE SURFACE TABLE 97 

C 98 

00 520 N=2»NP 99 

A« I SURF2 <N, 1 )-ZP )** 2 -M SURF2I N»2 l-RP ) **2 100 

IF C A.GE.AA ) GO TO 523 101 

AA=A 102 

520 CONTINUE 103 

PICK2=NP-l 104 

PICK2*PICK2*.2 105 

RETURN 106 

523 PICK2=N-1 107 

PICK 2= PICK 2+ .2 108 

RETURN 109 

OEBUG SUBCHK 

E ND no 

FUNCTION TEST { ZP»RP I 1 

c 2 

C 3 

C DETERMINES IF A GIVEN INTERIOR POINT IS IN 4 

C THE REGION TO BE CONSIDERED 5 

C 6 

COMMON CASEI0<14),ITS1,ITS2,ITS3,ITS4,ITI1,ITI2, ITI3 , IT 14. EPS1 , EPS 7 

12,EPS3,EPS4,EPS5,EPS6,EPI1,EPI2,EPI3,EPI4,EPI5,EPI6,EPI7,VP,AR,LEN 8 

1GTH, APR, BPR,BIGAPR,BIGBPR,ESTAR, ALPHA, BETA, RHOSTR,EPRS,RHOS 9 

COMMON XMESHI 20, 20* 6 ) , XMESH2I 20,20,6) , Z ( 20) , R( 20 ) , SURF ( 15,8 ) ,SURF2 10 


//y 



o o 


1(15, 8), TAB<15 # 14,2),TA82( 15, 14,2 ) , SPARK 15,2 ,2 ) *RARF ( 15 , 11 ) , RARF2 ( 
115*4)*RPART( 15,2) 


COMMON Z0» RO,PO,UO, VO,LO,MO,RHOO,EO, AO,UBARO ,VBARO 
C 

COMMON NP,NT ,NR,NI ,NDEL, I SUB 
C 

COMMON ZMIN,ZMAX,RMIN,RMAX, RADIUS, 6Z,GR,0ELTA,H 

COMMON DIRCOS 

COMMON TIME 

COMMON IRARF 

COMMON KSTOP 

COMMON TPS! 

COMMON KKK 

REAL LO , MO , L ENGT H, MU , KQ 
C 

EPS*. OOOl 

IF ( ITS3.EQ. 1) GO TO 5 

IF (RP.GT.IRADIUS+EPSn GO TO 5 

M*PICK2(ZP,RP,7> 

FF»ZP-SURF2 ( M+l, 1 >-( SURF2C M, l l-SURF2(M+i ,11) *( RP-SURF2 ( M*2 ) (/(SURF 
12(M,2)-SURF2(M+1,2)> 

KICK*5 

CALL DVCHK(KQ) 

IF (KQ.EQ.l) GO TO 9980 
IF (FFI 200,5,5 
5 CONTINUE 

IF (ZP.GT.-EPS) GO TO 1 
IF (RP.GT.(RADIUS+EPS>) GO TO 200 
1 DO 10 K=l,2 

IF (ITS3.EQ.1) GO TO 100 
M=PICK2(ZP,RP,K) 

IF (TA82(M*2,K).GT .RP.AND.M.NE* 1 ) M=M-1 

FF=ZP-TAB2 (M-i-l, 1,K)-(TA82(M,1,K)-TAB2(M+1,1,K) ) ♦(RP-TAB2 (M + 1»2»KH 
1/(TA82(M,2,K )-TAB2( M+l, 2,K ) ) 


11 
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KICK=50 47 

CALL DVCHKIKQ) 48 

IF <KQ.EQ.1I 60 TO 9980 49 

IF IK.EQ.2) GO TO 50 50 

IF (RP.GT. RADIUS! GO TO 10 51 

IF < FF) 200,10*10 52 

50 IF IFF) 10,10,200 53 

10 CONTINUE 54 

DO 20 K*i,2 55 

J=K+3 56 

M=PICK2(ZP,RP, J) 57 

IF ( SPART (M*2*K).GT. RP. AND.M.NE. I ) H*M-1 58 

FF=ZP-SPART I M+l, 1, K )- I SPART I M, 1,K)-SPART< M+l ,1 ,K) ) *< RP-SPARTIH+1,2 59 

1 ,K) ) / < SPART < M» 2»K)— SPARTIM+l , 2*K I ) 60 

KICK=15 61 

CALL DVCHKIKQ) 62 

IF IKQ.EO.l! GO TO 9980 63 

IF (K.EQ.2! GO TO 15 64 

IF (RP.GT. RADIUS! GO TO 20 65 

IF (FF.LT..001! GO TO 300 66 

GO TO 20 67 

15 IF IFF. GT.-. 001) GO TO 400 68 

20 CONTINUE 69 

IF I IRARF.EQ.l ) GO TO 100 70 

M=PICK2 (ZP*RP,3) 71 

FF*RP-RARF2(M+1,2)-(RARF2(M,2!-RARF2(M+1,2) ) *< ZP-RARF2 C M+l , 1 ) ) / IRA 72 

1RF2<M,1)-RARF2(M*1,1)! 73 

KICK*20 74 

CALL DVCHKIKQ) 75 

IF (KQ.EQ.l! GO TO 9980 76 

IF (FF.LT.O.) GO TO 100 77 

M=PICK2(ZP,RP,6) 78 

FF=RP-RPART< M*l»2>-< RPARTI M,2)-RPARTIM+1 ,2) ) *( ZP-RPARTI M+l ,1) !/ (RP 79 

1ARTI M, 1 )— RPART I M+l , 1 ) ) 80 

KICK=100 81 

CALL DVCHKIKQ) 82 


// 4 > 



IF I KQ.EQ. 1 ) GO TO 9960 83 

IF IFF.LT.O.) GO TO 500 84 

100 TEST=1 85 

TEST*TE$T-»-.2 86 

RETURN 87 

200 TEST=2 88 

TEST*TEST*.2 89 

RETURN 90 

300 TEST=3 91 

TEST*TE$T+.2 92 

RETURN 93 

400 TEST=4 94 

TEST=TEST*.2 95 

RETURN 96 

500 TEST*5 97 

TEST=TEST+.2 98 

RETURN 99 

9980 WRITE 13,9985) KICK 100 

9985 FORMAT (32H0DIVIDE CHECK NEAR STATEMENT NO. ,I5,14H IN SU8R. TEST/i 101 

1 HI ) 102 

RETURN 103 

DEBUG SUBCHK 

END 104 

SUBROUTINE FG0F5(Z5, R5, SS, QQ,PHI ,NMAX, MMAX) 

C SUBROUTINE FG0F5CZ5,R5,SS,QQ) 

C 2 

C COMPUTES S5,Q5 FOR INTERIOR REGION 3 

C ITERATION FOR Z5,R5 4 

C 5 

COMMON CASEI D( 14)»ITS1*ITS2*ITS3,ITS4»ITI1*ITI2,ITI3* IT 14, EPS 1 , EPS 6 

12* EPS3* EPS4, EPS5,EPS6,EPIl,EPI2fEPI3*EPI4,EPI5,EPI6,EPI7,VP,AR,LEN 7 

1GTH* APR* BPR*BIGAPR,BIGBPR,ESTAR* ALPHA, BETA, RHOSTR,EPRS,RHOS 8 

COMMON XMESH( 20,20*6 ) » XMESH2 (20,20,6),Z(20)*R(20), SURF (15,8) ,SURF2 9 

1(15,8)*TAB(15*14,2),TAB2(15,14*2)*SPART(15,2*2), RARF (15,11) , RARF2 ( 10 

115*4 ) ,RPART ( 15,2 ) 11 

C 12 

//? 



COMMON ZO, RO*PO*UQ* VO* LO* MO*RHOO*EO, AO*UBARO * VBARO 
C 

COMMON NP» NT *NR*Nl*NOEL* ISUB 
C 

COMMON ZMIN»ZMAX*RMIN*RMAX,RADIUS*GZtGR*DELTA»H 

COMMON DIRCOS 

COMMON TIME 

COMMON IRARF 

COMMON KSTOP 

COMMON TPS I 

COMMON KKK 

REAL LO * MO* LENGTH* MU *KQ 
DOUBLE PRECISION PHI(2Q,20,6) 

C 

DIMENSION ANSI 6 ) 

C 

TSSS=i*l 

IF(TIME.GT.TSSS) GO TO IOO 
CALL DBLTRPC Z5*R5.ANSI 
GO TO 101 

100 CALL DSURFT ( Z5*R5* ANS*PHI» NMAX*MMAX) 

101 U5=ANS ( 2 ) 

C U5*ANS(2) 

V5=ANS 1 3 ) 

SS=Z5-Z0+H*V5 

QQ=R5-R0+H*U5 

RETURN 

DEBUG SUBCHK 
END 

SUBROUTINE ITRP . 

COMMON CASEIDI 14)*ITS1*ITS2*ITS3*IT$4»ITI1»ITI2*ITI3*ITI4*EPS1*EPS 
12,EPS3,EPS4,EPS5,EPS6,EPll»EPI2,EPI3*EPI4,EPI5,EPI6,EPI7,VP,AR,LEN 
1GTH, APR, BPR.BIGAPR*BIGBPR,ESTAR, ALPHA* BETA, RH0STR,6PRS.RH0S 
COMMON XMESH(20*20*6), XMESH2I 20*20»6)»Z(20)*R(20), SURF (15*8) ,SURF2 
1(15*8) ,TAB (15*14*2), TAB2 ( 15*14*2), SPART (15*2*2) »RARF (15*11), RARF2I 
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14 
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r-4 CM <*> -t WH 



noon no o o on 


115, 4 ) » RPART ( 15*2) 7 

8 
9 

COMMON ZO,RO,PO,UO,VO,LO,MO«RHOO,EO, AO,UBARO» VBARO 10 

11 

COMMON NP»NT»NR»Nl »NDEL * I SUB 12 

13 

COMMON ZMIN, ZMAX,RMIN,RMAX,RADIUS,GZ,GR,DELTA,H 14 

COMMON DIRCOS 15 

COMMON TIME 16 

COMMON I RARE 17 

COMMON KSTOR 18 

COMMON TPS I 19 

COMMON KKK 20 

21 
22 

REAL L0»M0,LENGTH,MU,K0 23 

24 

INTERPOLATION SCHEME FOR POINTS BETWEEN PARTICLE CURVES 25 

AND DISCONTINUITIES 26 

27 

EPS=. 0000001 28 

KODl=0 29 

K002=0 30 

DO 1000 J* 1* 20 31 

DO 1000 1=1,20 32 

M*TESTIZm,R(J) I 33 

IF IM.NE.5) GO TO 906 34 

IF < IRARF.EQ.l ) GO TO 906 35 

NR1=NR-1 36 

DO 907 JJ=1,NR1 37 

IF I RARF2 1 JJ »1).LT.Z(I) . AND.RARF2 ( J J+l » 1 ) *GT .Z { I )) GO TO 908 38 

907 CONTINUE 39 

908 CONTINUE 40 

FF=R ( J I-RARF2I J J+l, 2 ) + ( RARF2( J J » 2I-RARF2 C JJ* 1 »2 ) ) * { Z ( I ) -RARF2I J J+l 41 

1,1)1/ CRARF2I JJ, U-RARF2I JJ+1,1) ) 42 


//9 



IF (FF.LT.O.) GO TO 1000 43 

906 CONTINUE 44 

IF (M.EQ.3.AND.Z(I).LT.EPS.AND.ABS(A(J)-RADIUS).LT.EPS) GO TO 1000 45 

IF ( M.LT.3 ) GO TO 8051 46 

WRITE 13,8050) 47 

8050 FORMAT (30H0INTERP0LAT10N SCHEME EMPLOYED) 48 

614 FORMAT (IX5HZ0 =,E15.8,4X5HR0 =*,E15.8) 49 

Z0=Z(I) 50 

R0=R C J ) 51 

WRITE 13,614) ZO,RO 52 

WRITE 13,0888) M 53 

8888 FORMAT ( 1X4HM *,I4) 54 

8051 CONTINUE 55 

GO TO (1000, 1000, 1001, 1010, 1100), M 56 

1001 IF (IRARF.EQ.l) GO TO 1003 57 

M*PICK2(Z(I),R(J),3> 58 

FF=R(J>-RARF2(M+l,2)*(RARF2(M,2)-RARF2<M+l,2n*(Z(I)-RARF2(F*l,l)> 59 

1/ (RARF2 (M, 1 J-RARF2(M+1, 1 ) ) 60 

IF (FF.GT.O.) GO TO 1003 61 

DO 8002 K*l,6 62 

L=K+2 63 

8002 XMESH2 ( I * J,K )*=RARF( 1 ,L ) 64 

GO TO 1000 65 

1003 L= I+l 66 

N=TEST ( Z(L ) ,R( J ) ) 67 

GO TO (1004, 1007, 1030, 1030, 1050), N 68 

1004 M=PICK2 (Z(I),R(J),1) 69 

DO 1006 K*l,8 70 

ANS«TAB2(M,K,l)+(TAB2(M+l,K,l)-TAB2(M,K f 1) )*<R( J)-TAB2(M,2,l) )/(TA 71 

1B2(M*1,2,1)-TA82(M,2,1) ) 72 

IF (K.NE.i) GO TO 8005 73 

ANS1=ANS 74 

GO TO 1006 75 

8005 CONTINUE 76 

IF (K.EQ.2) GO TO 1006 77 

KX=K-2 78 
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IF ( ABS (R < J I-RADIUS I «GT *EPS ) GO TO 9024 79 

IF CK.GT.5.0R.K.LT.4) GO TO 9024 80 

ANS=TAB2<M*1*K»1) 81 

9024 CONTINUE 82 

XMESH2C I*J*KX)=ANS+<XMESH2Uf J*KXI-ANS >*< Z< I l-ANSI ) / C ZI LI -ANSI > 83 

IF ( ABS (R t J ) -RADIUS ) .GT .EPS ) GO TO 1006 84 

XMESH2U* J*1)*0. 85 

XMESH2( I,Jt4)*RH0STR 86 

XMESM2( I*J»5)=0« 87 

XMESH2I I* J * 6) = S0RT < B IGAPR/RHOSTR I 88 

1006 CONTINUE 89 

GO TO 1000 90 

1007 MM=P ICK2 (Z(I)*R(J)»2) 91 

H=P ICK2 ( Z(II»R(J)*1) 92 

00 1009 K*l,8 93 

ANS=TAB2IM#K,i>*(TAB2(M+l,K, 1)-TAB2(M,K, 1) )*<R< J >-TAB2 ( M,2 * 1 ) J / ITA 94 

1B2<M+1,2*1)-TAB2(M V 2»1> * 95 

ANSW=TAB2<MM,K,2l + tTAB2CMM+l f K,2»-TAB2(MM,K,2) » *1 R ( J J-TAB2 ( MM, 2 ,2 1 96 

1 1/ ( TA82C MM+1, 2, 2 I-TAB2I MM, 2ilH 97 

IF IK.NE.l) GO TO 1008 98 

ANS1=ANS 99 

ANS2=ANSW 100 

GO TO 1009 101 

1008 CONTINUE 102 

IF CK.EQ.2) GO TO 1009 103 

KX=k-2 104 

XMESH2I I » J *KX >=ANS+I ANSW-ANS Z ( I I-ANS1 ) /( ANS2-ANS1 ) 105 

1009 CONTINUE 106 

GO TO 1000 107 

1010 IF (IRARF.EQ.l) GO TO 1013 108 

M=PICK2IZU),R( J),3» 109 

FF=R ( J )-RARF2( M+i* 2 (RARF2I M, 2 )-RARF2( M+1,2 I )*( Z( I I-RARF2 (M+l ,1 I 1 110 

1/ C RARF2 ( M, l I-RARF2I M*l» II) 111 

IF (FF.GT.O.) GO TO 1013 112 

DO 1012 K=lt 6 113 

L*K+2 11* 

/&/ 



1012 


XHESH2HtJ*K)=RARF(l*L> 115 

GO TO 1000 116 

1013 1=1-1 117 

IF <A8S<Z(IH.LT.EPS) GO TO 1017 118 

N=TEST < Z <L ) *R< J )l 119 

GO TO ( 1014*1017*1030*1017*1051 I *N 120 

1014 M*PICK2<Z< I»*R< J).2> 121 

DO 1016 K= 1* 8 122 

ANS=TAB2 CMf K* 2 J ♦< TAB2<M+1* K* 21-TAB2 (H*K*2n*tR<J)-T AB2 (M*2*2J)/<TA 123 

lB2(M-»-l*2*2l-TAB2(M*2*2) I 124 

IF IK.NE.1* GO TO 1015 125 

ANS1=ANS 126 

GO TO 1016 127 

1015 CONTINUE 128 

IF IK.EQ.2) GO TO 1016 129 

KX=K-2 130 

XMESH2I I*J,KX»*ANS+< XMESH2 (L * J *KX)-ANSI *< Z U l-ANSl) /<Z< U-ANSi > 131 

1016 CONTINUE 132 

GO TO 1000 133 

1017 L« J**l 134 

N=TEST(Zd»»R(LH 135 

GO TO <1024* 1030,1030,1030, 1051 > *N 136 

1024 M=PICK2<Z< n,R< J)»2) 137 

DO 1026 K=2* 8 138 

ANS=TAB2 (M*K*2 I -M TAB2C M-f 1# K*2 )-TAB2 (M*K*2)J*(Zd)— T AB2 <M*1*2H/<TA 139 

IB2C M+l *l*2)-TAB2(M*l*2) ) 140 

IF (K.NE.2) GO TO 1025 141 

ANS1=ANS 142 

GO TO 1026 143 

1025 CONTINUE 144 

KX*K-2 145 

IF (ABS(ZdH.GT.EPS) GO TO 9125 146 

IF <K.GT.5.0R.K.LT.4> GO TO 9125 147 

ANS=TAB2(M+1*K*2I 148 

9125 CONTINUE 149 

XHESH2 < I * J*KX) = ANS-M XMESH2 < I *L » KX)-ANS ) *< R< J >-ANSl ) /( R< LI- ANSI I 150 
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IF <ABS(Z(I) l.GT.EPS) GO TO 1026 151 

XMESH2 (I, J, 11*0* 152 

XMESH2I I* J*4)=RH0STR 153 

XMESH2(l,J,5>=0. 154 

XHESH2 ( 1 1 J * 6 )=SQRT ( B IGAPR/RHOSTR I 155 

1026 CONTINUE 156 

GO TO 1000 157 

1100 M=PICK2(Zm*R(J),3I 158 

ANS1=RARF2IMU, 2 )+( RARF2( H,2)-RARF2 ( M+1,2 >) * <Z< I )-RARF2( M+l , U > / < R 159 

1ARF2IM, 1)-RARF2(M+1, 1») 160 

L*J41 161 

M=TEST (Z(I),R(L)I 162 

GO TO (1101*1030, 1051.1030), M 163 

1101 CONTINUE 164 

DO 1106 K=l, 6 165 

LL=K*2 166 

XMESH2( I,J,K)~RARF(l,LL)+( XMESH2 ( I »L*K J-RARF ( 1 , LL ) )*(R< Jl-ANSU/ (R 167 

l (LI-ANSi ) 168 

1106 CONTINUE 169 

GO TO 1000 170 

1050 JJ1=J 171 

H1*I 172 

K0D1*1 173 

GO TO 1000 174 

1051 JJ2*J 175 

I I 2= I 176 

K002=l 177 

1000 CONTINUE 178 

IF CKOOl.EQ.OI GO TO 2000 179 

M»PICK2(Z( II1)»R(JJ1),1) 180 

DO 2016 K=1 * 8 181 

ANS=TAB2(M,K,U + (TAB2(«4l,K,l)-TAB2(H,K,m*(R( JJ1 )-TAB2(M,2 ,1 ))/( 182 

1TAB2 (M+l, 2, l I-TAB2 (M,2,l)) 183 

IF (K*NE« 1 1 GO TO 2005 184 

ANS1*ANS 185 

GO TO 2016 186 
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2005 CONTINUE 187 

1*111 188 

J*JJ1 189 

L*1I1*1 190 

IF (K.EQ.2) GO TO 2016 191 

KX=K-2 192 

XMESH2I I * J,KX)*ANS-M XMESH2IL, J,KX)-ANS>*IZ( I l-ANSl) / < Z ( L l-ANSl > 193 

2016 CONTINUE 194 

2000 IF IK0D2.EQ.0> GO TO 3000 195 

M*P ICK2( Z ( II2),R(JJ2),2) 196 

DO 3016 K* 1, 8 197 

ANS*TAB2tM,K t 2l*<TAB2CM + ltK,2)-TA82<M,K,2n*(RUJ2)-TAB2iM,2,2n/< 198 

1TAB2 (M+l ,2, 2 )-TAB2( M»2» 2 1) 199 

IF (K.NE.l) GO TO 3015 200 

ANS1=ANS 201 

GO TO 3016 202 

3015 CONTINUE 203 

1*112 204 

J*JJ2 205 

L*II2-l 206 

IF (K.EQ«2 ) GO TO 3016 207 

KX = K - 2 206 

XMESH2(I,J,KX)*ANS+(XMESH2U,J,KX)~ANS)*UM I-ANS1)/ C Z C D-ANS1) 209 

3016 CONTINUE 210 

3000 CONTINUE 211 

GO TO 3017 212 

1030 WRITE (3, 1040 1 I.J 213 

1040 FORMAT (27H0 TIME STEP TOO LARGE AT I* ,I4,2H J=, 14, ///} 214 

CALL EXIT 215 

3017 CONTINUE 216 

C 217 

C 218 

RETURN 219 

DEBUG SUBCHK 

END 220 

SUBROUTINE EXIT 1 


/a/ 
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C 2 

COMMON CASEID<14),IT$1,ITS2, ITS3, ITS4, 1TI 1, I TI2 , ITI 3, IT 14, EPS1 ,EPS 3 

12,EP$3,EPS4,EPS5,EPS6,EPI1,EPI2,EPI3,EPI4,EPI5,EPI6,EPI7,VP,AR,LEN 4 

1GTH, APR, BPR»BIGAPR,BIGBPR,ESTAR, ALPHA, BETA, RHOSTR,EPRS,RHOS 5 

COMMON XMESHI 20, 20,6 ) ,XMESH2( 20»20»6)»Z(20)*R(20) » SURF (15,8) ,SURF2 6 

1 (15,8), TAB( 15, 14,2 ),TAB2U5, 14,21, SPARTU5, 2,2), RARF<15 ,11), RARF2I 7 

115.4) »RPART ( 15, 2) 8 

9 

10 

COMMON ZO, R0,P0 ,U0, V0^L0,M0,RH00,E0, AO,UBARO ,VBARO 11 

12 

COMMON NP»NT ,NR,NI ,NDEL, ISUB 13 

14 

COMMON ZM!N,ZMAX,RMIN,RMAX, RADIUS, GZ ,GR, DELTA ,H 15 

COMMON DIRCOS 16 

COMMON TIME 17 

COMMON IRARF 18 

COMMON KSTOP 19 

COMMON TPS I 20 

COMMON KKK 21 

REAL LO, MO .LENGTH, MU, KO 22 

KSTOP* 1 23 

STOP 24 

END 25 

SUBROUTINE FGOFI (ZX,RX, SS,QQ,PHI ,NMAX,MMAX) 

SUBROUTINE FGOFI <ZX,RX,SS,QQ) 

2 

COMPUTES SI ,QI FOR INTERIOR REGION 3 

ITERATION FOR ZI,RI 4 

5 

COMMON CASEIDI 14), ITSl, ITS2, ITS3,ITS4,ITI1»I TI2,ITI3»IT14»EPS1,EPS 6 

12»EPS3*EPS4*EPS5»EPS6*EPIi,EPI2»EPI3»EPI4»€PI5»EPI6,£PI7,VP,AR,LEN 7 

1GTH, APR, BPR,BIGAPR,B IGBPR.ESTAR, ALPHA, BETA, RHOSTR,EPRS,RHOS 8 

COMMON XMESH (20, 20,6 ) , XMESH2C 20»20»6)»Z(20) ,R(20) ,SURF< 15,8) ,SURF2 9 

1(15,8),TAB(15,14,2),TAB2(15,14,2),SPART(15,2,2),RARF(15,11) ,RARF2 ( 10 

115.4) , RPART( 15,2) 11 
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COMMON ZO, RO ,P0 *00, VO,LO, MO, RHOO, EO, AO , UBARO « VBARO 

COMMON NP,NT ,NR,NI,NDEL, ISUB 

COMMON ZMIN,ZMAX,RMIN,RMAX, RADIUS, GZ,GR, DELTA, H 

COMMON DIRCOS 

COMMON TIME 

COMMON IRARF 

COMMON KSTOP 

COMMON TPS I 

COMMON KKK 

REAL LO, MO, LENGTH, MU, KO 

DIMENSION ANSI 6 ),PSI(4),SPSI t ID ,CPSI( 11 } 

DOUBLE PRECISION PHI<20,20,6> 


TSSS*I.l 

IFITIME.GT.TSSS) GO TO 100 
CALL DBLTRPI ZX,RX, ANSI 
GO TO 101 

100 CALL DSURFT (2X,RX,ANS,PHI« NMAX, MMAX) 

101 UI s ANS( 2 J 

C UI=ANS ( 2 ) 

VI=ANS(3) 

AI=ANS C 6 ) 

SS=ZX-Z0+H*IVI+AI*SINCTPSI I) 
QQ=RX-RO*H*IUI*AI*COSCTPSI )) 

RETURN 


12 

13 

14 

15 

16 
1 ? 
18 

19 

20 
21 
22 

23 

24 

25 

26 
27 

26 

29 

30 

31 

32 


35 

36 

37 

38 

39 
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II. 2. 


Method of Characteristics Calculations and the Computer Code 
for Materials with Arbitrary Equations of State. 


f. 


/ <5- X 7 



AXIAL COORDINATE -cm 


RADIAL COORDINATE -ca- 



• Projectile Shock 
g| Target Shock 

A Interior Region 
O Rarefaction 


Fig. 1. Pressure distribution from the characteristic solution at t • 1.25 ysec 
after impact of a 2.5 -cm- diaaeter projectile at 0.76 cm/ysec on an 
aluminum half -space. 


AXIAL COORDINATE -Cm- 


RADIAL COORDINATE -cm- 



Fic. 2. Pressure distribtuion from the characteristic solution at t - 1.52 ysec 
after impact of a 2.5 -cm- diameter projectile at 0.76 cm/ysec on an 
aluminum half-space. 

/a? 


PRESSURE 



AXIAL COORDINATE -cm- 

Fig 3, Axial pressure profiles at various times as predicted by the 

characters! tc method for a 2,5 -cm- diameter aluminum projectile 
impacting on aluminum half-space at 0-76 cm/ysec. 
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c 

c 

c 

c 


1 


c 


2 


COMMON CASEIDT14I# ITS! , I TS2, I TS3, I TS4* l Til , I TI 2 , 1 Tl 3, IT 14, EPS 1 , EPSMAI N 
i2*EPS3*EPS4*EPS5*EPS6»EPIl*EPI2»EPI3»EPI4*EPI5*EPl6»EPI7»VP*AR,LENMAIN 


1GTH, APR, BPR,BIGAPR,BIGBPR,ESTAR, ALPHA, BETA, RHOSTR, EPRS, RHOS MAIN 

COMMON XME$H< 20,20,6 J ,XMESH2< 20,20,6) »Z( 201 *R(20),SURFU5, 81* SURF2MAIN 
1(15* SI ,TAB<15,14,2) ,TAB2C 15,14,2 I «SPART( 15, 2,2), RARF( 15,11 )»RARF2i MAIN 
115*4), RP ART! 15*21 WAIN 

MAIN 

MAIN 

COMMON ZO,RO,PO,UO,VO,LO,MO,RHOO,EO,AO,U6ARO,VBARO MAIN 

MAIN 

COMMON NP,NT *NR*NI .NOEL* ISU6 MAIN 

MAIN 

COMMON zmin,zmax,rmin,rmax,raoius*gz,gr,deuta*h MAIN 

COMMON DIRCOS MAIN 

COMMON TIME MAIN 

COMMON IRARF MAIM 

COMMON KSTOP MAIN 

COMMON TPSI MAIN 

COMMON KKK MAIN 

MAIM 

MAIN 

REAL LO, MO, LENGTH, MU»KO MAIN 

KR= I 0 MAIN 

EPS=.000000l main 

KSTOP-O MAIN 

FORMAT (1HU MAIN 

CALL OVCHK(KEY) MAIN 

KI CK=0 MAIN 

IF (KEY.EQ.l) GO TO 9980 MAIN 

MAIN 

00 2 K=1 , 6 MAIN 

00 2 J=i»20 MAIN 

00 2 1=1*20 MAIN 

XNE SH J I * J* K I ®0a MAIN 

XMESH2U , J,K) = 0. MAIN 

CONTINUE MAIN 



1 

2 

3 

4 

5 

6 
7 
e 

9 

10 

11 

12 

13 

14 

15 

16 
1? 
18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 



c 

KRW=0 

MAIN 

37 


NUZ0N*0 

MAIN 

38 

c 


MAIN 

39 

c 


MAIN 

40 


WRITE (3,4) 

MAIN 

41 

c 


MAIN 

42 

c 

DATA INPUT SECTION 

MAIN 

43 

c 


MAIN 

44 

4 

FORMAT 1 52HIHVPERV6L0CITY IMPACT METHOD OF CHARACTERISTICS CODE///MAIN 

45 


n 

MAIN 

46 

C 

10 AND FX. PT. CONSTANTS 

MAIN 

47 

c 


MAIN 

48 


READ (1,8) CASEID*IT$1»ITS2,ITS3,ITS4, I T 1 1 * ITI2,ITI3, IT 1 4, NOEL 

MAIN 

49 

8 

FORMAT ( 13A6, A2/9I 3) 

MAIN 

50 


IRARF-ITI2 

MAIN 

51 

C 


MAIN 

52 

c 

FL. PT. CONSTANTS 

MAIN 

53 

c 


MAIN 

54 


READ (1,15) EPSt,EPS2,EPS3,EPS4,EPS5,tPS6,EPU,EPI2,EPI3,EPI4, 

EPI5MAIN 

55 


1,EPI6,EPI7 

MAIN 

56 


READ (1,141 NP,NT,NR 

MAIN 

57 

14 

FORMAT (313) 

MAIN 

58 


READ (1,15) APR,BPR, B I GAPR »BI GBPR » ESTAR, ALPHA, BETA, RHOSTR,EPR$ 

, REFMAIN 

59 


IL 

MAIN 

60 


READ (1,15) ZMIN,ZMAX,RMIN I RMAX,GR,GZ, DELTA, VP, LENGTH, RADIUS, HSTARMAIN 

61 

15 

FORMAT (6E12.8) 

MAIN 

62 


READ (1,15) RST 

MAIN 

63 


IF (RST.GT.O.) GO TO 16 

MAIN 

64 


REWIND 9 

MAIN 

65 

C 

DO 1529 JTP~ 1 , 200 

MAIN 

66 


READ ( 9 ) TIME 

MAIN 

67 

c 

IF(ABS(RST+TIME).LT..0011 GO TO 1530 

MAIN 

68 

c 

RE AD ( 9 ) BLOB 

MAIN 

69 

C1529 

CONTINUE 

MAIN 

70 

1530 

CONTINUE 

MAIN 

71 

C 

KRW=1 

MAIN 

72 
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1 
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READ C9H ( (XME SHI 1,J,K), 1*1,20) , J* l ,20 ) , K= l ,6 I *(ZC II *1= 1*201 , (R< I ) MAIN 
It 1=1*201 1 ( < SURFC I , J) ,1*1,15) ,J=1,8) , U (TABU, J,K|, 1=1, 15),J*1, 14), MAIN 
IK* 1,2) , l (RARE! I * J I ,1*1,15) * J=1 , 111 ,TIME,ZM[N« ZMAX, RMIN, RMAX ,GR» GZ ♦ MA I N 


1AR MAIN 

00 1500 J=l,20 MAIN 

00 1500 1*1,20 MAIN 

DO 1500 K* 1,6 MAIN 

1500 XME $H2 (I,J,K)* XME SH( I,J,K| MAIN 

DO 1501 1=1,15 MAIN 

DO 1501 J= 1 * 8 MAIN 

1501 SURF2U, JMSURFU, J) MAIN 

WRITE 0,1451 TIME MAIN 

CALL SOUT MAIN 

CALL PRINT<XMESH2,Z,R.l) MAIN 

KREFL=0 MAIN 

16 CONTINUE MAIN 

WRITE (3,10) CASEID,ITS1,ITS2,ITS3,ITS4, ITU, ITI2, l T I 3, ITI4, NOEL MAIN 

10 FORMAT ( IX13A6,A2//17H SHOCK l TERAT 1 0NS6X , 4 1 4//20H INTERIOR ITERATMAIN 

1 1 0N$ 3X » 41 4//7H NOEL *,14///) MAIN 

WRITE (3,18* EPSl,EPS2,EPS3,EPS4,EPS5,EPS6» EP I 1 , EP 1 2, EP I 3, EP 1 4, EP (MAIN 
15,EPI6,EP!7,ZMIN,ZHAX»RMI N, RMAX ,OELTA,VP,LENGTH,RADIUS, APR , BPR , 8 IGMAI N 
1APR,8IGBPR ,E STAR, ALPHA, BETA, RHOS TR ,EPRS, REEL MAIN 

18 FORMAT <///38H ERROR CRITERIA FOR SHOCK COMPUTATIONS//5X8HDELTA Z1MAIN 


18X8HDELTA R18X9HDELTA RH07 X7H0ELT A E9X7HDELT A P9X7HDELT A U/6E16. 6/MAIN 
1//41H ERROR CRITERIA FOR INTERIOR COMPUT AT 1 0NS//5X8HDELTA Z 1 8X8HDEMA I N 
1LTA RI8X7HDELTA P9X7HDELTA U9X7H0ELT A V9X9H0ELTA RH07X7HDELTA E/7EMAIN 
116.6///5X4HZMI N12X4HZMAX 12X4HRM I N1 2X4HRMAX 12X5HDELTAHX2HVP14X6HLEMAIN 
1NGTH 10X6HR A01 US/8E 16.6///5X2HA* 14X2HB* 14X6HB IG A* 10X6HBIG B' 10X2HEMA IN 
1*14X5HALPHA11 X4HBE TA 12X4HRH0*/8E 1 6. 6//5X3HE *S13X4HREFL/2E16*6///) MAIN 


IF IRST.lT.O.) GO TO 140 

MAIN 


MAIN 

STORE RHO* IN ALL XMESH 

MAIN 


MAIN 

00 22 J= 1 , 20 

MAIN 

DO 22 1=1,20 

MAIN 

XME SH< I , J , 4 ) =RHO$TR 

MAIN 


73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 
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40 FORMAT (5E12.8) 

PROJECTILE SHOCK 

CALL EQ0S1 (PRHO,PPP,P VV. PEE* TEE* TRHO, KICK I 
IF (KICK. EQ. 22001 GO TO 9980 
00 230 N=1 »NP 

TAB< N* l , 1 1 = t PRHOAPVV-RHGSTR*VP ) *HSTAR/ ( PRHO-RHOSTR I 
EE =N- L 
FNP=NP 

TAB(N»2*ll=RMIN+EE*< RADI US-RMI N I /FNP 
TA8(N* 3*1 l=PPP 
TAB<N, 4,11=0.0 
TABIN* 5, U*PVV 
TAB(N*6«1) *PRHO 
TABIN, 7*1I=PEE 
TAB(N, 9, 11=0.0 
TAB(N*10, 11=1.0 
CONTINUE 

TARGET SHOCK 


M=0 

00 240 N = 1 *NT 
E E = N - 1 
FNT=NT-4 

TAB( N,2,2)=RMI N*£E *( RADI US-RMI N ) /FNT 

TA8(N,7,21=TEE 

TAfl(N*6*2l=TRH0 

TAB ( N, 3* 2 1 =PPP 

IF <TA8<N,2,2}.GT.RA01U$I GO TO 250 

TAB < N, 1 * 2 1 =TRHO*PVV*HSTAR/ ( TRHO-RHGSTR I 

TABIN, 4, 21=0.0 

TAB<N,5,2»=PVV 

TAB! N, 9, 21=0.0 

TAB ( N» 10* 2 1 = l • 0 


MAIN 

109 

MAIN 

110 

MAIN 

111 

MAIN 

112 

MAIN 

113 

MAIN 

114 

MAIN 

115 

MAIN 

116 

MAIN 

117 

MAIN 

lie 

MAIN 

119 

MAIN 

120 

MAIN 

121 

MAIN 

122 

MAIN 

123 

MAIN 

124 

MAIN 

125 

MAIN 

126 

MAIN 

127 

MAIN 

128 

MAIN 

129 

MAIN 

130 

MAIN 

131 

MAIN 

132 

MAIN 

133 

MAIN 

134 

MAIN 

135 

MAIN 

136 

MAIN 

137 

MAIN 

138 

MAIN 

139 

MAIN 

140 

MAIN 

141 

MAIN 

142 

MAIN 

143 

MAIN 

144 




GO TO 240 


HA IN 

145 

250 

EF=M 


MAIN 

146 


TAB(N,9,2I=SIN( • 5236+EF*. 26 l 81 


MAIN 

147 


TAB ( N, 10* 2 )®COSI • 5236+EF*. 2618 ) 


MAIN 

14B 


TAB(N,4,2I«=PVV*TAB(N,9,2) 


MAIN 

149 


TABIM,5,2)=PVV*TAB(N,10,2) 


MAIN 

150 


TAB(N,1,2I=TAB(1,1,2)*TAB(N, 10,21 


MAIN 

151 


TAB(N,2,2)=RADIUS+TAB< l,l,2> *TAB(N,9,2 ) 


MAIN 

152 


M=M+1 


MAIN 

153 

240 

CONTINUE 


MAIN 

154 

C 



MAIN 

155 

C 

RAREFACTION 


MAIN 

156 

C 



MAIN 

157 


CALL EQ0S2(PPP»PRH0*PEE) 


MAIN 

158 


EE=NR-l 


MAIN 

159 


AOELMTABC 1 , 1 , 2 > “TAB <1 • 1 * 1 >) /EE 


MAIN 

160 


RARFC 1,1>*TAB< 1,1,2) 


MAIN 

161 


00 205 N=2,NR 


MAIN 

162 


RARF(N»l)=RARF(N-l,l) -ADEL 


MAIN 

163 

205 

CONTINUE 


MAIN 

164 


DO 210 N=l ,NR 


MAIN 

165 


RARF<N»10)=(RARFCN»1 l/HST AR-, 5*VPI / AR 


MAIN 

166 


RARF ( N* 9) =-SQRTf 1. -RARF ( N, 10)**2) 


MAIN 

167 


RARF ( N, 2 ) =RADI US+H STAR* AR* RARF C N, 9 1 


MAIN 

168 

210 

CONTINUE 


MAIN 

169 


DO 220 N=1,NR 


MAIN 

170 


RARFIN,3I*TAB( 1,3,1) 


MAIN 

171 


RARFI N » 4 ) =0* 


MAIN 

172 


RARF<N,5J=TA8< 1,5,1) 


MAIN 

173 


RARF ( N , 6 ) = TAB! 1,6,1) 


MAIN 

174 


RARF(N«7)*TABI 1,7,1) 


MAIN 

175 

220 

CONTI NUF 


MAIN 

176 

C 

REGION INTERIOR TO SHOCKS 


MAIN 

177 


I=-2MIN/GZ+1.2 


MAIN 

178 


J=0 


MAIN 

179 

260 

J=J+1 


MAIN 

180 


/ 3 ^> 



o o o 


XMESHI I,J,U=PPP 
XME SHI I f J » 3 ) =P VV 
XMESHI I« J,4!=PRH0 
XMESHI It J,5)=PEE 
EE =1 J- 1 ) 

I F UEE*GR-RADIUS».IT.-EPS) GO TO 260 
XMESHI I, J, L|=0. 

XMESHI I « J,4)=RH0STR 
XMESHI I* J,5)=0. 

FREE SURFACE 

DO 50 ! = 1 , NP 

SURF! I • n=-LEMGTH+VP*HSTAR 
SURE! I,2I=TABI 1,2, 1 » 

SURF! I ,31*0. 

SURF! I ,4)*0. 

SURF 11,5 I *VP 
SURF! I ,6>=RH0STR 
SURF! I ,7»=0. 

SURF! I » 8 ) = SORT (6IGAPR/RH0STR) 

50 CONTINUE 

DO 51 I=1,NP 
00 51 J=l,8 

51 SURF 2 I I « J S = SURF I I , J ) 

IF INUZON.EG.Ol GO TO 5001 

5000 GR=GR+2. 

GZ=GZ*2. 

ZMax=ZMAX*2.-ZMIN 

RMAX*RMAX*2. 

NUZON* l 

WRITE (3,50031 
5003 FORMAT I 7H REZONE/// J 

5001 CONTINUE 
C 

C 


MA 

IN 

181 

MA 

IN 

162 

MA 

IN 

183 

MA 

IN 

184 

MA 

IN 

185 

MA 

IN 

186 

MA 

IN 

187 

MA 

IN 

188 

MA 

IN 

189 

MA 

IN 

190 

MA 

IN 

191 

MA 

IN 

192 

MA 

IN 

193 

MA 

IN 

194 

MA 

IN 

195 

MA 

IN 

196 

MAIN 

197 

MA 

IN 

198 

MA 

IN 

199 

MAIN 

200 

MA 

IN 

20 i 

MA 

IN 

202 

MA 

IN 

203 

MAIN 

204 

MA 

IN 

205 

MA 

IN 

206 

MA 

IN 

207 

MA 

IN 

208 

MA 

IN 

209 

MA 

IN 

210 

MA 

IN 

211 

MAIN 

212 

MAIN 

213 

MA 

IN 

214 

MA 

IN 

215 

MA 

IN 

216 


/3Q> 



00 55 1=1,20 

MAIN 

217 


£6=1-1 

MA IN 

218 


Z< I )=ZMIN*EE*GZ 

MAIN 

21 ) 


R( l )=RMIN+EE*GR 

MAIN 

220 

55 

CONTINUE 

MAIN 

221 


IF (NUZON.EO.OI GO TO 5101 

MAIN 

222 


DO 5100 1=1,10 

MAIN 

223 


00 5100 J=l,10 

MAIN 

224 


DO 5100 K= 1 , 6 

MAIN 

22 5 


L= 2* I - 1 

MAIN 

226 


M=2*J-i 

MAIN 

227 


XMESHI 1,J,K)=XMESH<I_ 9 M,K) 

MAIN 

228 

5100 

CONTINUE 

MAIN 

229 


GO TO 157 

MAIN 

230 

5101 

CONTINUE 

MAIN 

231 

C 


MAIN 

232 

c 

COMPUTE A FOR 2 SHOCKS AND MESH 

MAIN 

233 

c 


MAIN 

234 


DO 86 K = l » 3 

MAIN 

235 


GO TO 157, 59,611, K 

MAIN 

236 

57 

NN*NP 

MAIN 

237 


JJ = 1 

MAIN 

238 


GO TO 63 

MAIN 

239 

59 

NN*NT 

MAIN 

240 


JJ = 1 

MAIN 

241 


GO TO 63 

MAIN 

242 

61 

NN=20 

MAIN 

243 


J J=20 

MAIN 

244 

63 

DO 84 N*1,NN 

MAIN 

245 


DO 02 J=1,JJ 

MAIN 

246 


GO TO <65, 65,68) «K 

MAIN 

247 

65 

P=TA8 < N , 3, K ) 

MAIN 

248 


RHO=TAB(N, 6,K1 

MAIN 

249 


E=TA8<N,7,K> 

MAIN 

250 


GO TO 70 

MAIN 

251 

68 

P=XMESH< J,N,il 

MAIN 

252 


/3 ^ 



RH0*XME$H< J,N,4I 

MAIN 

253 


E*XMESHUtN*5l 

MAIN 

254 

70 

CONTINUE 

MAIN 

255 


CALL EQ0S3I RHO* AA» E * PI 

MAIN 

256 


GO TO <76,76,78»,K 

MAIN 

257 

76 

TAB(N*8,K)=AA 

MAIN 

258 


GO TO 82 

MAIN 

259 

78 

XMESHC J,N,6)*AA 

MAIN 

260 

82 

CONTINUE 

MAIN 

261 

84 

CONTINUE 

MAIN 

262 

86 

CONTINUE 

MAIN 

263 


K I CK=86 

MAIN 

264 


CALL DVCHK(KQ) 

MAIN 

265 


IF (KQ.EQ.tl GO TO 9980 

MAIN 

266 

C 


MAIN 

267 

C 

STORE A FOR RAREFACTION 

MAIN 

268 

C 


MAIN 

269 


00 90 1*1, NR 

MAIN 

270 

90 

RARF( I, 8)=AR 

MAIN 

271 

C 


MAIN 

272 

C 

COMPLETE SHOCK TABLES 

MAIN 

273 

C 


MAIN 

274 


00 99 K* 1 * 2 

MAIN 

275 


GO TO (92, 941, K 

main 

276 

92 

NN*NP 

MAIN 

277 


GO TO 95 

MAIN 

278 

94 

NN=NT 

MAIN 

279 


us*o. 

MAIN 

2B0 

96 

DO 97 N=1 * NN 

MAIN 

281 


GO TO ( 93 , 96 ) , K 

MAIN 

282 

93 

CONTINUE 

MAIN 

283 


US=VP*TAB(N,10,1> 

MAIN 

284 

96 

CONTINUE 

MAIN 

285 


T AB ( N, ll,KI = TAB(N,9,K)*TAB(N,4»K)4'TAB(N,10,Kl*TAB(N,5, 

K I MAIN 

286 


TAB(N,12,K)«TAB(N,9,KI*TAB(N,5,K)-TAB(N,10,K)*TABCN,4, 

K) MAIN 

287 


TAB(N,13,KJ»=((TAB(N,6»K)*ABS(TAB(N,11,KI) ) / < TAB< N, 6, K) 

-RHOSTRI-USIMAIN 

288 


/S f 



1*(-1.)**K 

main 

289 


TAB(N,14,K) = U 

MAIN 

290 

97 

CONTINUE 

MAIN 

291 

99 

CONTINUE 

MAIN 

292 

C 


MAIN 

293 

c 


MAIN 

294 

c 

STORE ALL XMESH IN XMESH2 

MAIN 

295 

c 


MAIN 

296 

130 

00 135 K = l » 6 

MAIN 

297 


00 135 J=1 *20 

MAIN 

298 


DO 135 1=1*20 

MAIN 

299 


XME SH2 ( I * J « K 1 = XME SH( I, J,K) 

MAIN 

300 

135 

CONTINUE 

MAIN 

301 


TIME=HSTAR 

MAIN 

302 


WRITE (3,145) TIME 

MAIN 

303 


CALL SOUT 

MAIN 

304 


CALL PRINT! XMESH2, Z,R,l) 

MAIN 

305 

C 


MAIN 

306 


KREFL=0 

MAIN 

307 

139 

IF (KREFL.NE.O) GO TO 143 

MAIN 

308 

C 

ENTRY FOR TIME STEP 

MAIN 

309 

c 


MAIN 

310 

140 

READ (1,142) H 

MAIN 

311 

142 

FORMAT ( E 1 2 • 8) 

MAIN 

312 

143 

CONTINUE 

MAIN 

313 


T I ME =T I ME + H 

MAIN 

314 


WRITE (3,145) TIME 

MAIN 

315 

145 

FORMAT (IH1///6H T I ME = , E 1 5 . 6 /// ) 

MAIN 

316 


WRITE (3,999) KR 

MAIN 

317 

999 

FORMAT (5X,4H KR=,I5) 

MAIN 

318 

C 


MAIN 

319 

C 


MAIN 

320 

c 

ADVANCE SHOCK POINTS 

MAIN 

321 

c 


MAIN 

322 


00 159 N=l,NP 

MAIN 

323 


IF < TAB(N, 14,1 J.LT.O. ) GO TO 156 

MAIN 

324 


/ 3 ? 



156 


154 

150 

159 


155 


150 

157 

C 

C 


510 


515 

516 

C 

C 


IF UTABIN,l,ll-SURF<N,ll) .GT.EPS1 GO TO 154 MAIN 

TAB2<N»l,l)=TAB(N»l»l) MAIN 

TAB2(N,2,11“TAB(N,2, 1) MAIN 

TAB(N,14,1>=-1. MAIN 

GO TO 159 MAIN 

TAB2lN,i,l>=TAe(N,i,n+TAB<N,l3,l)*H*TAB<N, 10,l)-*VPt'TAB<N»9,l)*TABMAIN 
KN,10,1I*H MAIN 

TAB2lN,2,ll=TAB<N,2,lH-TAB<N,13,n*H*TAB<N,9,n-VP*TAB<N,9, IJ**2*HMAIN 
CONTINUE MAIN 

00 155 N=1»NT MAIN 

TAB2(N»l»2) ffi TAB(N»l»2l+TAB(N»13,21 9H*T AB1N»10*2) MAIN 

TAB2(N,2,2)*TAB(N,2,2I+TAB(N,13,2)*H*TAB<N,9,2) MAIN 

DO 158 M=1*NT MAIN 

IF (TAB2IM, 1,2) .GT.ZMAXi GO TO 5000 MAIN 

IF <TAB2(M,2,2).GT.RMAXI GO TO 5000 MAIN 

CONTINUE MAIN 

NUZON*=0 MAIN 

ADVANCE RAREFACTION MAIN 

MAIN 

IF (RARE! 1,2). LT.O. 1IRARF=1 MAIN 

IF IIRARF.EQ.il GO TO 516 MAIN 

ENR=NR-1 MAIN 

ADEL = t TAB2U, 1»21-TAB2( 1,1 0 11)/ENR MAIN 

RARF2I 1,1I*TAB2( 1, 1,21 MAIN 

00 510 N=2»NR MAIN 

RARF2(N,1»=RARF2IN-1 ,11-AOEL MAIN 

CONTINUE MAIN 

00 515 N=l,NR MAIN 

RARF2I N,31=<RARF2<N, 1 1 / T I HE-. 5*VP > / AR MAIN 

RARE 2 ( N, 4 ) =-SQRT ( 1 . -RARF2 1 N, 3 1 **2 1 MAIN 

RARF2(N,2l=RADl US+ T I ME*AR*RARF 2 I N , 4 1 MAIN 

CONTINUE MAIN 

CONTINUE MAIN 

CALL SHOCK MAIN 

MAIN 

MAIN 


325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 





IF ( ITS3.EQ.1) GO TO 569 
C SHOCK COMPUTATIONS COMPLETED 

C COMPUTE PARTICLE CURVES 

C 

TMP= • 5*VP*H 
DO 520 N= l * NP 

SPART{N,l,l)=TA8(N,l.l)+TAB(N,5,l)*H 
520 SPART(N,2, 1>=TAB(N,2,1 KTABIN.A, U*H 
00 525 N=1 »NT 

SPART (N»l*2I=TA8(Ntl*2)+TAB(N*5»2l+H 
525 SPARTCN.2*2 J=TABIN,2 .2 )+TAB(N,4 f 2 )*H 
IF (IRARF.EQ.il GO TO 531 
00 530 N=i,NR 
RPARTIN, l»=RARF(N,l M-TMP 

530 RPART(N,21=RARF<N,2l 

531 CONTINUE 
C 

C 

568 CALL SCUT2 

569 CONTINUE 

C AOVANCE PROJECTILE REAR SURFACE 

00 5300 I = 1 * NP 
00 5300 J a 1 * 8 
5300 SURF 2 ( I » J I ® SURF I I » J I 
KICK=568 
CALL DVCHKIKQ) 

IF ( KQ.EQ. II GO TO 9980 
C 

C START INTERIOR REGION COMPUTATIONS 

C 

CALL INTER 
C 

C INTERIOR REGION COMPUTATIONS COMPLETED 

C 

CALL PR I NT< XME SH2 • Z»R* 2 I 

570 CONTINUE 


MAIN 

361 

MAIN 

362 

MAIN 

363 

MAIN 

364 

MAIN 

365 

MAIN 

366 

MAIN 

367 

MAIN 

368 

MAIN 

369 

MAIN 

370 

MAIN 

371 

MAIN 

372 

MAIN 

373 

MAIN 

37 4 

MAIN 

375 

MAIN 

376 

MAIN 

377 

MAIN 

378 

MAIN 

379 

MAIN 

380 

MAIN 

381 

MAIN 

382 

MAIN 

383 

MAIN 

384 

MAIN 

385 

MAIN 

386 

MAIN 

387 

MAIN 

388 

MAIN 

389 

MAIN 

390 

MAIN 

391 

MAIN 

392 

MAIN 

393 

MAIN 

394 

MAIN 

395 

MAIN 

396 



non 


920 


930 


940 


950 

951 


959 

960 



MAIN 

397 

INITIALIZE FOR NEXT TIME 

STEP MAIN 

398 


MAIN 

399 

00 920 K*l,6 

MAIN 

400 

00 920 J=1 ,20 

MAIN 

401 

DO 920 1=1*20 

MAIN 

402 

XMESHC I, J,K)=XMESH2( I ,J,K) 

MAIN 

403 

CONTINUE 

MAIN 

404 

DO 930 J= 1 » 1 3 

MAIN 

405 

00 930 1*1, NP 

MAIN 

406 

TAB! I * J, l ) =TAB2< I,J,1) 

MAIN 

407 

CONTINUE 

MAIN 

408 

DO 940 J= 1 * 1 3 

MAIN 

409 

DO 940 1=1, NT 

MAIN 

410 

TABU,J,2)=TAB2U, J.2) 

MAIN 

411 

CONTINUE 

MAIN 

412 

IF I IRARF.EQ.l) GO TO 951 

MAIN 

413 

DO 950 1=1, NR 

MAIN 

414 

RARFI I ,1)=RARF2( 1*1) 

MAIN 

415 

RARFI l,2)=RARF2f 1,2) 

MAIN 

416 

CONTINUE 

MAIN 

417 

CONTINUE 

MAIN 

418 

DO 960 1*1, NP 

MAIN 

419 

DO 959 J=i ,5 

MAIN 

420 

SURF I I , J ) = SURF 2 1 I, J) 

MA I N 

42 1 

CONTINUE 

MAIN 

422 

CONTINUE 

MAIN 

423 

IF (KR.EG.10) GO TO 868 

MAIN 

42 4 

REW1N0 4 

MAIN 

425 

WRITE ( 4) T I ME 

MAIN 

426 

WRITE (4M << XMESHt I,J,K| ,1*1 

,20) , J=l, 20) ,K* 1,6), <Z< 1 ), 1*1,20), (RUMAIN 

427 


1 ) * T S 1 *20) « ( ( SURF ( I ,J) ,1=1,15) , J»l,8l, < < (TAB< l, J,K), 1=1, 15) , J=l» 14)MA1N 428 
i,K=i,2),<<RARF(!,J),I=l,l5),J=l,ll),TIHE,ZMIN,ZMAX,RMIN,RMAX,GR,GZMAIN 429 
l.AR MAIN 430 

KR= 10 MAIN 431 

GO TO 777 MAIN 432 


/ 



888 

REWIND 10 

MAIN 

433 

C 

IFIKRW.EQ. IJREWIN010 

MAIN 

434 

C 

KR W=0 

MAIN 

435 


WRITE 110) TIME 

MAIN 

436 


WRITE (10) 1 ( (XMESHt I, J,K), 1*1, 

20), J*l,20| ,K*l,6), <Z< II, 1*1 ,20),<R1 MAIN 

437 


II), 1*1,20) ,( 1 SURF! I ,J) ,1*1,15) 

, J*1 ,8) , (< ( TAB ( I,J,K), 1*1, 15), J* 1, 14MAIN 

438 


1 )»K=1,2)*< (RARFI I ,J) ,1*1 ,15) ,J 

*1,11) ,T IME,ZMIN,ZMAX,RMIN,RMAX,GR,GMAIN 

439 


1Z» AR 

MAIN 

440 


KR = 4 

MAIN 

441 

777 

IF IKREFL.EQ.O) GO TO 980 

MAIN 

442 


KREFL=0 

MAIN 

443 


H=H l 

MAIN 

444 


GO TO 143 

MAIN 

445 

900 

CONTINUE 

MAIN 

446 


CALL DVCHK (KICK) 

MAIN 

447 


IF (KICK.EQ.2) GO TO 140 

MAIN 

448 


WRITE <3,970) 

MAIN 

449 

970 

FORMAT (28HOOIVIOE CHECK AT ENO OF CASE/1H1) MAIN 

450 


CALL EXIT 

MAIN 

451 

C 


MAIN 

452 

C 

DIVIDE CHECK 

MAIN 

453 

C 


MAIN 

454 

9980 

WRITE (3,9985) KICK 

MAIN 

455 

9985 

FORMAT ( 32H0DI VIDE CHECK NEAR 

STATEMENT NO. , I5/1H1) MAIN 

456 


RETURN 

MAIN 

457 


ENO 

MAIN 

458 


SUBROUTINE D6L TRP ( Z X ,RX , ANS ) 

SUB 1 

I 

C 


SUB l 

2 

c 

1ST ORDER DOUBLE INTERPOLATION THAT CONSIDERS SUB1 

3 

c 

LINES OF DISCONTINUITY IF 

IN CONSIDERED REGION SUB1 

4 

c 


SUB 1 

5 


COMMON CASE l Ot 14) , ITS1 , 1 TS2 , 1 TS3 , 1 TS4, ITI l , 1 T 1 2, IT 13, I T 1 4, EPS 1 , EPSSUB 1 6 

t2»EPS3,EPS4,FPS5,EPS6,EPIl , EP I 2 , EP I 3 » EP 1 4, EP 1 5 ♦ EP I 6, EP I 7, VP, AR, LENSU8 1 7 

1GTH, APR, PPR, 8IGAPR,BIG8PR,ESTAR,ALPHA,BETA,RH0STR,EPRS,RH0S SU81 8 

COMMON XMFSH ( 20,20,6 > ,XMESH2( 20,20,6) ,Z<20) ,R( 20) , SUR F U 5 , 8 ) , SUR F 2SUB 1 9 

l( 15,8) ,TA8( 15,14,2 ) »TAB2< 15,14,2) ,SPART( 15,2,2),RARF( 15, 1 1 ) , RARF2 1 SUB I 10 




* o o r> 


115, A) ,RPART(l5t2i 
C 

c 

COMMON ZO,RO,PO,UO,VO,LO,MO,RHOO,EO,AO,UBARO,V6ARO 
C 

COMMON NP»NT»NR,NI , NOEL, I SUB 

c 

COMMON ZMIN,ZMAX,RM1N,RMAX,RA0IU$,GZ,GR,DELTA»H 

COMMON DIRCOS 

COMMON TIME 

COMMON IRARF 

COMMON KSTOP 

COMMON TPS I 

COMMON KKK 

REAL LO, MO, LENGTH, MU, KO 
C 

DIMENSION ANSI 61 , ANSI (2,81 • ANS2 I 2 ,8) , ZI( 4 1 • RI I A) , IKI4J 
CALL OVCHK I KEY I 
IF (KEY.FQ*2) GO TO A 
N0=0 

GO TO 940 

FINO SUBSCRIPTS FOR GRIO 

1 1 = 1 ZX-ZMINI/GZ + l.OOOOOl 
12*11+1 

Jl* I RX-RM I N ) /GR+l . 000001 
J2* J 1+ l 
NN=NP 

IF I ITS3.EQ.il GO TO 3 
DO 1 K= 1 , 2 
IF ( K.EQ.2 I NN*NT 
DO l 1*1, NN 

ALF= SORT U TAB! I , 1 , K ) -ZX ) **2+< TAB ( I , 2, K l-RXl **2 ) 

IF (ALF.GT.EPS!) GO TO l 
ANSm*TABI I,3,K) 


SUB 1 

11 

SUB 1 

12 

SUB 1 

13 

SUB 1 

IA 

SUBi 

15 

SUB 1 

16 

SUBI 

17 

SUBI 

18 

SUBI 

19 

SUBI 

20 

SUBI 

21 

SUBI 

22 

SUBi 

23 

SUBI 

2 A 

SUBI 

25 

SUBI 

26 

SUBI 

27 

SUBI 

28 

SUBI 

29 

SUBI 

30 

SUBI 

31 

SUBI 

32 

SUBI 

33 

SUBI 

3 A 

SUBI 

35 

SUBI 

36 

SUBI 

3? 

SUBI 

38 

SUBI 

39 

SUBI 

AO 

SUBi 

A1 

SUBI 

A2 

SUBI 

A3 

SUBI 

AA 

SUBi 

A5 

SUBI 

A6 


/90 



n o r> n n u) n 


ANS(2)=TAB(I,4,K) 

AN SI 3 I =TAB I I ,5,K> 

AN$|4)=TAB< ! , 6 » K ) 

ANSI 5 ) = TAB( I , 7, K ) 

ANSI6J-TABI I » 8 » K ) 

RETURN 

l CONTINUE 

IF I IRARF.EQ.l ) GO TO 3 
DO 2 1=1, NR 

ALF = SQRT< C RARE I I , l ) - ZX ) **2+ I R ARF < l,2)-RX)**2) 
IF (ALF.GT.EPin GO TO 2 
ANSI 1>=RARF< I ,3) 

ANSI 2>=RARFI I ,4) 

ANSI3)=RARF( 1,5) 

ANSI 4)=RARF( 1,6) 

ANSI 5>=RARF< 1,71 
ANS(6)=RARF( 1,8) 

RETURN 
CONTINUE 
CONTINUE 


ZXX=ZX+.Ol 
RXX=RX+. 01 

I LOOP FOR UPPER AND LOWER Z GRIO LINES 

DO 800 1=1,2 
IF I ITS3.E0. 11 GO TO 14 
IF I I.EQ.2) GO TO 8 
11 = 11 
GO TO 12 
8 11=12 

12 M»CQNP(ZX»RX,Z(III ,R(J1 I I 

IF I M.EQ. 1) GO TO 13 
MCOM= 1 



SUB 1 

47 

SUB l 

48 

SUB 1 

49 

SUB 1 

50 

SUB! 

51 

SUB l 

52 

SUB 1 

53 

SUB 1 

54 

SUB 1 

55 

SUB 1 

56 

suei 

57 

SUB 1 

58 

SUB 1 

59 

SUB 1 

60 

SUB l 

61 

SUB 1 

62 

SUB 1 

63 

SUB 1 

64 

SUB 1 

65 

SUB 1 

66 

SUB 1 

67 

SUB l 

68 

SUBt 

69 

SUB l 

70 

SUB 1 

71 

SU8 1 

72 

SUB 1 

73 

SUB l 

74 

SUB! 

75 

SUB 1 

76 

SUB l 

77 

SUB 1 

78 

SUB 1 

79 

SUB 1 

80 

SUB 1 

81 

SUB 1 

82 



IB 


C 

C 

c 

14 


15 


17 


C 

c 

20 


c 

c 


21 

22 

23 


GO TO 20 

SUB 1 

83 

M=COMP<ZX,RX,Z< I 1 > »R( J2) ) 

SUB 1 

84 

IF IM.EQ.l) GO TO 14 

SUB 1 

85 

MC0M=2 

SUB 1 

86 

GO TO 20 

SUB 1 

87 


SUB1 

88 

GET 6 VALUES ON GRID 11NFS 

SUB 1 

89 


SUB 1 

90 

DO 15 X* 1*6 

SUB 1 

91 

ANSLU»K*2)*XMESH< l I , Jl * K) + I XMESH ( 1 1 * J2» K J-XMESH( 1 1* Jit 

K) 1*1 RX-RI JSUB1 

92 

11 )/<R( J21-RI JIM 

SUB 1 

93 

CONTINUE 

SUB 1 

94 

CALL OVCHK ( NO 1 

SUB 1 

95 

IF (N0.EQ.2) GO TO 17 

SUB 1 

96 

NO- 15 

SUB1 

97 

GO TO 940 

SUB 1 

98 

ANSlUtll^ZUn 

SUB 1 

99 

ANSI ( I *2 1 =RX 

SUB 1 

100 

GO TO 800 

SUB 1 

101 


SUB 1 

102 


SUB l 

103 

zz=z< i 1 1 

SUB 1 

104 

RR=RX 

SUB 1 

105 

M=COHP IZXfRXfZZ* RR ) 

SUB 1 

106 

IF (H.EQ.l) GO TO 300 

SUB l 

107 


SUB l 

108 


SUB 1 

109 

00 25 K*l,2 

SUB 1 

no 

KATCH^O 

SUB! 

111 

GO TO <21»22),K 

SUB l 

112 

NN=NP 

SUB l 

113 

GO TO 23 

SUB 1 

114 

MN=NT 

SUBl 

115 

JJJ=NN-1 

SUB1 

116 

DO 24 M=l t J J J 

SUBl 

117 

IF (M.EQ.JJJ) GO TO 210 

SUBl 

118 





210 


212 

213 

215 

211 

26 

24 

25 


IF <RX.GT.TAB<M+l»2tK|.OR.RX.LT.TAB<M,2,K) ) GO TO 

24 SUB 1 

119 

Z 1 ( K ) *TAB< H«-l»l ,K»-MTAB(M,l .KI-TABIM+l, 1»K) J*(RX- 

TA8( H + l» 2 »K i )/(TASUBl 

120 

lB(M # 2,K)-TAB<M+l f 2.K)) 

SUB 1 

121 

NO-210 

SUB 1 

122 

CALL DVCHKIKQ) 

SUB 1 

123 

IF IKQ.EQ.l) GO TO 940 

SUB 1 

124 

IF ( I . EG. 2 ) GO TO 211 

SUB 1 

125 

IF IKATCH.EQ.1) GO TO 212 

SUB 1 

126 

KATCH*1 

SUB 1 

127 

GO TO 213 

SUB l 

128 

IF < IZX-ZIIKH.GT. <ZX-ZM|| GO TO 24 

SUB l 

129 

IF (ZIIK).GT.ZX) GO TO 24 

SUB 1 

130 

ZH=ZIIK) 

SUB i 

131 

IF IK.EQ.2) GO TO 215 

SUB 1 

132 

NPS*N 

SUB 1 

133 

GO TO 24 

SUB 1 

134 

NTS=M 

SUB 1 

135 

GO TO 24 

SUB1 

136 

CONTINUE 

SUB l 

137 

IF IKATCH.EQ.I) GO TO 26 

SUB 1 

138 

KATCH= 1 

SUB 1 

139 

GO TO 213 

SUB 1 

140 

IF I (ZIIKI-ZXI.GT. (ZH-ZX)I GO TO 24 

SUB 1 

141 

IF IZIIKI.LT. ZXI GO TO 24 

SUB 1 

142 

GO TO 213 

SUB 1 

143 

CONTINUE 

SUB 1 

144 

ZMK)*ZM 

SUB 1 

145 

IF CKATCH.NE.O) GO TO 25 

SUBi 

146 

Z I f K ) = ZMAX+l. 

SUB 1 

147 

CONTINUE 

SUBI 

148 

IF (IRARF.EQ.l)ZK 3)*ZWAX+1. 

SUBI 

149 

IF I 1RARF.EQ. 1 ) GO TO 2504 

SUBi 

150 

KATCH=0 

SUBI 

151 

JJ J=NR-1 

SUBI 

152 

00 27 M*1 « J J J 

SUBI 

153 

ZI (3I*RARF(M+1*1 ) ♦IRARF ( M, U-RARFf M+l , il J *< RX-RARF IM+l, 2H /« R ARF I MSUBl 

154 





2799 

279 


280 

281 


28 


282 

27 

2504 


1 « 2 J-RARF ( M+l«2 ) ) 

NO=25 

CALL DVCHKIKQI 

IF (KQ.EQ.l) GO TO 940 

IF (ABS(ZI<3»-ZX).GT.1.E-5I GO TO 279 

DO 2799 LN* 1 *6 

LNN*LN+2 

ANSI LN ) =RARF ( 1 1 LNN ) 

CONTINUE 
GO TO 820 
CONTINUE 

IF < I.EQ.2) GO TO 28 
IF (ZH3I.GT.ZX) GO TO 27 


SU8 l 155 
SUB l 156 
SUB 1 15? 
SUB 1 158 
SU61 159 
SUB 1 160 
SUB 1 161 
SUB 1 162 
SUB 1 163 
SUB 1 164 
SUB l 165 
SUB 1 166 
SUB 1 167 


IF (KATCH.EO.U GO TO 280 

KATCH-l 

GO TO 281 

IF UZX-ZII3M.GT. CZX-ZHI) GO TO 27 

ZH=Z I 131 

MR=M 

GO TO 27 

IF I ZI (3t.LT.ZX1 GO TO 27 
IF IKATCH.EQ.U GO TO 282 
KATCH=1 
GO TO 281 

IF nZI(3»-ZX).GT.(ZN-ZXn GO TO 27 

GO TO 281 

CONTINUE 

ZK3I-ZM 

CONTINUE 

KATCH-0 

K = 4 

J J J=NP-1 

DO 2700 N* 1 » J J J 

IF (M.EO.JJJI GO TO 2710 

IF IRX.GT.SURF(H+l,2).0R.RX.LT.SURFIM,2l> GO TO 2700 
1 1 ( 4) sSURFI M-f-1 » 1 !♦< SURF IM«lf- SURF IN ♦1*111*1 RX-SURF I M+l* 2 $ 


SUB 1 168 
SUB 1 169 
SUB 1 170 
SUB 1 171 
SUB 1 172 
SUB1 173 
SUB1 174 
SUB l 175 
SUB 1 176 
SUB 1 17? 
SUB 1 178 
SUB 1 179 
SUB 1 180 
SUB 1 181 
SUB 1 182 
SUB 1 183 
SUB1 184 
SUB l 185 
SUB1 186 
SUB L 187 
SUB 1 188 
SUB 1 189 
I /I SURF ( NSUBl 190 


2710 



l,2>-SURF<M+l,2tl 
IF <KQ.EQ.ll GO TO 940 
CALL DVCHKCKQl 
N0=271 0 

IF < I.EQ.2) GO TO 27U 
IF <KATCH.EQ.il GO TO 2712 
KATCH*I 
GO TO 2713 

2712 IF <<ZX-ZI<Kl».GT.<ZX-ZM)l GO TO 2700 

2713 Z M=Z M 4 ) 

MS=M 

GO TO 2700 
2711 CONTINUE 

IF ( KATCH.EQ* 1 ) GO TO 2726 

KATCH=1 

GO TO 2713 

2726 IF < <ZICKl-ZXl.GT.<ZM-ZX)l GO TO 2700 
GO TO 2713 

2700 CONTINUE 
Zll4)=ZM 

IF (KATCH.NE.O) GO TO 2701 
Z I < 41=ZMAX>1. 

2701 CONTINUE 
R I ( i l=RX 
R I (21=RX 
R l ( 3 1 =R X 
R I ( 4 ) ®R X 

C FIND INTERSECTION TO USE 

C 

30 KE Y=0 

IF < I.EQ.21 GO TO 50 
C 

C UPPER GRID LINE 

C 


SUB 1 191 
SUB l 192 
SUB 1 193 
SU8 1 194 
SUB l 195 
SUB l 196 
SUB 1 197 
SUB 1 198 
SUB l 199 
SUB 1 200 
SUBI 201 
SUB 1 202 
SUBI 203 
SUBI 204 
SUBI 205 
SUBI 206 
SUBI 207 
SUBI 208 
SUBI 209 
SUBI 210 
SUBI 211 
SUBI 212 
SUBI 213 
SUBI 214 
SUBI 215 
SUBI 216 
SUBI 217 
SUBI 218 
SUBI 219 
SUBI 220 
SUBI 221 
SUBI 222 
SUBI 223 
SUBI 224 
SUBI 225 
SUBI 226 


00 40 KK- 1 » 4 

IF <Z< IIl.GT.ZKKKll GO TO 40 




IF (ABS(ZI(KKl-ZX).LT. 1.6-5) GO TO 35 

SUB l 

227 


IF (ZI(KK).GT.ZX) GO TO 40 

SUB 1 

228 


IF (KEY.EO.O) GO TO 35 

SUB 1 

229 


IF (ZKKKI.LE.ZKKEEPn GO TO 40 

SUB I 

230 


KEEP=KK 

SUB I 

231 


GO TO 40 

SUB i 

232 

35 

KEEP = KK 

SUB l 

233 


KEY* 1 

SUB l 

234 

<►0 

CONTINUE 

SUBI 

235 


GO TO 65 

SUB 1 

236 

C 


SUBI 

2 37 

C 

LOWER GRID LINE 

SUBI 

238 

C 


SUBI 

239 

50 

DO 60 KK*l,4 

SUBI 

240 


IF mm.LT.ZKKKn GO TO 60 

SUBI 

241 


IF <ABS(ZI (KK)-ZX) .LT. L.E-5) GO TO 55 

SUBI 

242 


IF (ZKKM.LT. ZX) GO TO 60 

SUBI 

243 


IF (KEY. 60.0) GO TO 55 

SUBI 

244 


IF (ZI (KKI.GE. ZI(KEEP)) GO TO 60 

SUBI 

245 


KEEP=KK 

SUBI 

246 


GO TO 60 

SUBI 

247 

55 

KEEP*KK 

SUBI 

248 


KEY* 1 

SUBI 

249 

60 

CONTINUE 

SUBI 

250 

C 


SUBI 

251 

65 

IF (KEY.NE.O) GO TO 70 

SUBI 

252 


WRITE (6,67) ZX,RX,I ,(ZI (KEY) » KEY* 1 ,4 ) , 

(RI(KEY),KEY=I,4) SUBI 

253 

67 

FORMAT (34H0ERR0R NEAR STATEMENT 65 IN 

DBLT RP/1X3HZX=,E15.8,4X3HRXSUB1 

254 


1*,F15.8,4X2HI*,I3/1X3HZI=,4E20.8/1X3HRI 

= »4E20.8/1HU SUBI 

255 


XYZ=~2 • 

SUB 1 

256 


ZYX*SQRT(XYZ> 

SUBI 

257 


CALL EXIT 

SUBI 

258 

C 


SUBI 

259 

C 

FIND 6 VALUES ON SELECTED DISCONTINUITY SUB1 

260 

C 


SUBI 

261 

70 

IF ( KEEP. EQ. 3) GO TO 80 

SUBI 

262 


/99 



71 

72 


75 

80 


85 

81 


IF (KEEP.EQ.4) GO TO 81 

IF < KEEP. EQ. 21 GO TO 71 

N=NPS 

GO TO 72 

N=NTS 

CONTINUE 

ZY=ZI<KEEP» 

RY=R X 

00 75 K«3»8 

ANSl(ItK)=TAB(N»K»KEEP)+(TA8<N+l»K»KEEP)-TAB(N»K»K 
l TAB! N, 2, KEEP M **2 + ( Z Y-TAB< N, 1 , KEEP U **2 ) t (( T AB ( N+l 
1»KEEP) I**2+(TAB(N+1»1*KEEPJ-TAB(N*1»KEEP1 1**21 I 

N0= 75 

CALL DVCHMKQ) 

IF IKO.EO.U GO TO 940 

CONTINUE 

GO TO 90 

N=MR 

ZY=Z M 3 1 
RY=RX 

DO 85 K=3* 8 

ANSI! I »K)=RARFlN f K)+tRARF<N+i »K)-RARFIN f Kl J*SQRT < ( 
12+ ( ZY-RARFtN, lH**2)/< (RARF<N+i.2l-RARF<N,2n**2+< 
l(N,m**2)| 

N0=85 

CALL DVCHMKQ) 

IF ( KQ.EO. 1 1 GO TO 940 

CONTINUE 

GO TO 90 

N*WS 

Z Y=Z 1(4) 

RY*R X 

00 86 K=3 1 8 

ANSI ( I iK ) = SURF I N»K J + ( SURF < N+l ,K ) -SURF < N, K I) *SQRT ( ( 
12+ 1 ZY-5URF CN» l J ) #*2I /< C SURF ( N+l «2I -SURF IN* 2 • l**2+( 
MN'1U**21 ) 


SUB 1 
SUB 1 
SUB 1 
SUB 1 
SUB 1 
SUB l 
SUB1 
SUB 1 
SUB l 

EEPl l+SQRTI HRY-SUBl 
t2»KEEP»-TAB(N,2SUBl 

SUB 1 
SUB 1 
SUB 1 
SUB 1 
SUB 1 
SUB1 
SU01 
SUB 1 
SUB l 
SUB 1 

<RY-RARF<N,2))**SUB1 
RARFIN+l, U-RARFSUB1 

SUB 1 
SUB l 
SUB! 
SUB 1 
SUB 1 
SUB 1 
SUB1 
SUB 1 
SUB1 
SUB 1 

(RY-SURFI N» 21 I**SUB1 
SURFIN+l, D-SURFSUB1 

SUB 1 


263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 


/5T^ 



86 

CONTINUE 

SUB 1 

299 

90 

CALL DVCHMNCI 

SUB 1 

300 


IF (N0.EQ.2) GO TO 92 

SUB 1 

301 


NO- 90 

SUB1 

302 


GO TO 940 

SUB l 

303 

92 

ANSI ( I * l ) = ZY 

SUB l 

304 


ANSI! 1 ?2)*RY 

SUBl 

305 


GO TO 800 

SUB 1 

306 

C 


SUBl 

307 

C 

FIND INTERSECTIONS OF 3 DISCONTINUITIES ANO Z GRID LINE 

SUBl 

308 

C 


SUBl 

309 

300 

CONTINUE 

SUBl 

310 


KATCHP-0 

SUBl 

311 


KATCHR=0 

SUBl 

312 


KATCHT=0 

SUBl 

313 


KATCHS=0 

SUBl 

314 


DO 310 K=1 »2 

SUBl 

315 


KATCH*0 

SUBl 

316 


GO TO ( 303*301 ) «K 

SUBl 

317 

303 

NN*=NP 

SUBl 

318 


GO TO 302 

SUBl 

319 

301 

NN=NT 

SUBl 

320 

302 

JJJ=NN-1 

SUBl 

321 


DO 309 H= 1 * J J J 

SUBl 

322 


IF < <TAB<M*l*K)-TAB(HU» !«*)». GT.I.E-6J GO TO 3030 

SUBl 

32 3 


GO TO 309 

SUBl 

324 

3030 

RI (K)=TABI M+lt2,KI+(TAB(M»2tK)-TAB(M+l,2*K) ) * ( Z ( I! I-TABIM+l, ] 

L.K H/SUB1 

325 


l(TAB(«,l,K)-TAB(M+l f 1*K ) ) 

SUBl 

326 


CALL DVCHK(NO) 

SUBl 

327 


IF ( NO. EQ* 2 ) GO TO 3031 

SUBl 

328 


N0= 3030 

SUBl 

329 


GO TO 940 

SUBl 

330 

3031 

CONTINUE 

SUBl 

331 


IF (H.EQ.JJJ) GO TO 3022 

SUBl 

332 


IF (RHIU.GT.TABIM+l, 2, KI.OR. RKKI.LT. TABCM, 2, Kll GO TO 309 

SUBl 

333 

3022 

IF (MCQH.EQ.2I GO TO 305 

SUBl 

334 



304 
3050 

3040 

305 

306 

309 

310 


IF (HATCH. EQ.U GO TO 304 SUBi 

HATCH* l SUBI 

GO TO 3050 SUBI 

IF I (RX-RI (H ) ) .GT. ( RX-KH)) GO TO 309 SUBi 

RM = R I ( K I SUBI 

IF (K.EQ.2) GO TO 3040 SUBI 

MPS=H SUBI 

KATCHP=1 SUBi 

GO TO 309 SUBI 

MT S=M SUBI 

KATCHT*1 SUBI 

GO TO 309 SUBI 

CONTINUE SUBI 

IF (HATCH. EQ.l) GO TO 306 SUBI 

HATCH* 1 SUBi 

GO TO 3050 SUBI 

IF < (RI(K)-RX).GT. ( RM-RX ) ) GO TO 309 SUBI 

GO TO 3050 SUBi 

CONTINUE SUBI 

R I ( H )=RM SUBi 

IF (HATCH. NE.O> GO TO 310 SUBI 

RI (K)*RMAX+i. SUBI 

CONTINUE SUBI 

H = 3 SUBi 

IF ( IRARF.EO. 1 JRI(3I=RMAX+l. SUBI 

IF ( IRARF.EO. l> GO TO 315 SUBI 

J J J=NR~ 1 SUBI 

HATCH*0 SUBI 

DO 312 H = l « J JJ SUBi 

RI (3)“RARF(M+l t 21*<RARF(H f 2)-RARF<M+l f 2l l*(ZII II -RARF( M+l . 2 » l/CRARSUBl 
IF( Mtll-RARF(M+i,m SUBi 

N0=3i22 SUBi 

CALL DVCHH(KO) SUBi 

IF (HQ. EQ.U GO TO 940 SUBI 

IF CM.EQ. JJJ.OR.M.EQ.i) GO TO 3122 SUBI 

IF (RI<K).GT.RARF(M+1(2).0R.RI (H).LT.RARF(M*2) I GO TO 312 SUBI 


335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 


/(S' 



3122 

IF <MC0M.EG.2I GO TO 316 

suei 

371 


IF (KATCH.EQ. 1 ) GO TO 317 

SUB l 

372 


KATCH-1 

SUB 1 

373 


GO TO 3051 

sub i 

374 

317 

IF HRX-RI <Kn.GT.<RX-RMH GO TO 312 

SUB 1 

375 

3051 

RMcRKK) 

SUB 1 

376 


MR=M 

SUB l 

377 


KATCHR-l 

SUB l 

378 


GO TO 312 

SUB l 

379 

316 

CONTINUE 

SUB 1 

380 


IF (KATCH.EQ. li GO TO 318 

SUB 1 

381 


KATCH-i 

SUB 1 

382 


GO TO 3051 

SUB 1 

383 

318 

IF ( (RI|K)-RXt.GT.( RM-RX I ) GO TO 312 

SUB 1 

384 


GO TO 3051 

SUB1 

385 

312 

CONTINUE 

SUB 1 

386 


R I ( K ) =RM 

SUB 1 

387 


IF (KATCH.NE.O) GO TO 315 

SUB 1 

388 


RI ( K 1 -RMAX+ 1. 

SUB 1 

389 

315 

CONTINUE 

SUB 1 

390 


KATCH-0 

SUB1 

391 


J J J*NP- 1 

SUB 1 

392 


DO 3150 M*1,JJJ 

SUB 1 

393 


IF ( (SURFIM, 11-SURFCM+l* 11 i.GT.l.E-6) GO TO 3130 

SUB 1 

394 


GO TO 3150 

SUB1 

395 

3130 

RI < 41 -SURF <M+1,2I*( SURF ( M, 2 ) -SURF! M+l * 2 1 IMZ< I 1 1-SURF< M*l, 

ll»/( SURSUB1 

396 


IF( M# 1 l-SURF ( H*1 * 11 ) 

suei 

397 


NO-3130 

SUB l 

398 


CALL DVCHK(KQ) 

SUB1 

399 


IF (KQ.EQ.li GO TO 940 

SUB 1 

400 


IF (M.EQ.JJJI GO TO 3123 

SUB1 

401 


IF <R((4>.GT.SURF(H+l'2).0R.RI(4l.lT.$URF<M«2}) GO TO 3150 

SUB1 

402 

3123 

IF (MC0M.EQ.2i GO TO 3105 

SUB 1 

403 


IF (KATCH.EQ.il GO TO 3104 

SUB1 

404 


KATCH-1 

SUB 1 

405 


GO TO 3109 

SUB 1 

406 


/£3 



non on 


3104 IF < CRX-RI (41). GT. (RX-RHH GO TO 3150 
3109 RM-RIC4I 

M$*M 

KATCHS*! 

GO TO 3150 

3105 IF (KATCH.EQ.il GO TO 3106 
KATCH-l 

GO TO 3109 

3106 IF ( (RIC4I-RXI.GT.C RM-RX ) ) GO TO 3150 
GO TO 3109 

3150 CONTINUE 
RI (4)»RM 

IF CKATCH.NE.OI GO TO 3107 
R I C 4 ) *RMAX+ 1. 

3107 CONTINUE 

IF CKATCHP+KATCHT+KATCHR+KATCHS.EQ.OI GO TO 485 

ztm*2cm 

ZIC2MZC in 
Z I ( 3 ) S Z( 1 1 I 
zi(4i«zun 

J LOOP FOR LEFT AND RIGHT R GRID LINES 

DO 700 J*l,2 
IF ( J.EQ.2I GO TO 350 

LEFT R GRID LINE 

JJ*Jl 
KEY»0 

00 340 N®1 »4 

IF (R( Jl l.GT.RI CN) I GO TO 340 
IF (RI (NI.GT.RX) GO TO 340 
IF (KEY.EQ.l) GO TO 330 
KE Y=1 
KEEP*N 
GO TO 340 


SUB 1 

407 

SUB 1 

408 

SUB 1 

409 

SUB 1 

410 

SUB 1 

411 

SUB l 

412 

SUB 1 

413 

SUB 1 

414 

SUB 1 

415 

SUB 1 

416 

SUB 1 

417 

SUB l 

418 

SU81 

419 

SU8 1 

420 

SUB 1 

421 

SUB 1 

422 

SUB 1 

423 

SUB 1 

424 

SUB 1 

425 

SUB 1 

426 

SUB 1 

42 7 

SUB 1 

428 

SUB 1 

429 

SUB 1 

430 

SUB 1 

431 

SUB 1 

432 

SUB 1 

433 

SUB l 

434 

SUB! 

435 

SUB1 

436 

SUB 1 

437 

SUB 1 

438 

SUB 1 

439 

SUB 1 

440 

SUB1 

441 

SUB1 

442 


;tjy 



FIND CLOSEST 


C 

C 

C 

330 


340 

C 

C 

C 

350 


355 


DI F 1®R X-R I ( KEEP ) 

01 F2=RX-R I I N ) 

IF CDIFl.LE.DIF2) GO TO 340 
KEEP-N 


CONTINUE 
GO TO 375 


RIGHT R GRID LINE 


JJ=J2 

KEY»0 

DO 360 N = l*4 

IF (RI J2I.LT. RMN)) GO TO 360 

IF CRI (N).LT.RX) GO TO 360 

IF (KEY.EQ.I) GO TO 355 

KEY=l 

KEEP-N 

GO TO 360 

DIFl=R I (KEEPI-RX 

DIF2=R IINI-RX 

IF (DIF1.LE.DIF2) -GO TO 360 
KEEP=N 


SUBI 
SUB l 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 
SUBI 


360 CONTINUE SUBI 

375 IF (KEY.EQ.I) GO TO 400 SUBI 

C SUBI 

C NO POINTS BETWEEN RX AND GRIO POINTS SUBI 

C SUBI 

ANS2 ( J • 1 ) £ Z ( 1 1 ) SUBI 

ANS2(J»2)*R(JJ) SUBI 

ANS2I J,3 ) s XHESH( II » JJ«1) SUBI 

ANS2< J*4) = XHE$H( 1 1 * J J»2 ) SUBI 

ANS2 ( J* 5 ) “XME SHI 1 1 « J J« 3 ) SUBI 

ANS2U*6) = XME$H< II* JJ,41 SUBI 


443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 
45B 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 
47B 






ANS2 ( J *7I=XMESH( II * JJ*5 ) 


SUB 1 

479 


ANS2I J«8)*XMESH( II * JJ,6) 


SUB 1 

480 


GO TO 700 


SUB 1 

481 

c 



SUB 1 

482 

c 

POINT FOUND BETWEEN RX AND 

GRID POINTS 

SUB 1 

483 

c 



SUBl 

484 

400 

GO TO (405* 410*470 « 461 l t KEEP 


SUB1 

485 

C 



SUBl 

486 

c 

INTERSECTION ON PROJECTILE 

SHOCK 

SUBl 

487 

c 



SUBl 

488 

405 

Nt»HPS 


SUBl 

489 


RY»RI (KEEP1 


SUBl 

490 


ZY*Z< in 


SUBl 

491 


GO TO 520 


SUBl 

492 

C 



SUBl 

493 

c 

INTERSECTION ON TARGET SHOCK 

SUBl 

494 

c 



SUBl 

495 

410 

N1*MTS 


SUBl 

496 


RY*R I ( KEEP ) 


SUBl 

497 


2Y«ZIIN 


SUBl 

498 


GO TO 520 


SUBl 

499 

C 



SUBl 

500 

C 

INTERSECTION ON RAREFACTION 


SUBl 

501 

c 



SUBl 

502 

470 

Nl-MR 


SUBl 

503 


RY*R I ( KEEP I 


SUBl 

504 


ZY=Z( in 


SUBl 

505 


GO TO 520 


SUBl 

506 

C 



SUBl 

507 

C 

INTERSECTION ON FREE SURFACE 


SUBl 

508 

C 



SUBl 

509 

481 

N1=MS 


SUBl 

510 


RY*RI ( KEEP ) 


SUBl 

511 


ZY*Z ( II) 


SUBl 

512 


GO TO 520 


SUBl 

513 

C 



SUBl 

514 





c 

485 

488 


C 

C 

C 

520 


550 

552 


551 

580 

590 

591 


592 

600 


WRITE (3.488) KEEP, 1 1 , JJ, ZX, RX 

FORMAT (25H06RR0R NEAR STATEMENT 485/ 1X5HKEEP-, I4.4X3HII*. 14.4X3) 
1J=, I4/1X3HZX*=,E15.8,4X3HRX*,E15.8/IH1 ) 

CALL EXIT 

FIND TABLE VALUES 

IF (KEEP. EQ. 31 GO TO 580 
IF (KEEP.EQ.4) GO TO 591 
00 550 N*3» 8 

ANS2(J,N)*TAB<N1,N,KE£P)+(TAB(N1+1,N,KEEPI-TAB(N1,N,KEEP) l*SQRT(l 
1RY-TAB <N1 ,2 .KEEP) ) **2 + ( ZY-T AB( N1 , 1 .KEEP J )**2)/((TAB(Nl + l,2,KEEPh 
1AB<N1,2,KEEPH **2+< TA8(NU 1,1, KEEP |-TA6(Nl, 1, KEEP) >**2>l 
CONTINUE 

IF (ZX.LT.O. . AND. A8S(RX-RADIUS ).LT.l.E-6) GO TO 552 
IF (RX.LT. RADIUS. OR. ABS(Z(Iin.GT.l.E-6» GO TO 551 
CONTINUE 
ANS2 ( J * 3 ) *0. 

ANS2I J,6)«RH0STR 
ANS2I J,7)*0. 

ANS2 ( J , 0 ) s SORT! BI GAPR/RHOSTR ) 

CONTINUE 
GO TO 600 
00 590 N*3, 8 

ANS2( J.N)«RARF(N1,N)+<RARF(N1+1 ,N)-RARF( N1 , N H ♦SORT ( (1 RY-RARF1 Nl, 
l)l**2*(ZY-RARF(Nl, 1) ) **2 )/( ( RARF ( Nl+1 , 2 ) -RARF (Nl, 2 ) I **2+( RARF( Nl< 
1,1 l-RARF ( Nl, 1) ) **2 ) ) 

CONTINUE 
GO TO 600 
00 592 N*3 , 8 

ANS2I J ,N ) =SURF(Nl,N)+( SURF (Nl + 1,N) -SURF (N1,N))*SQRT ( ( (RY-SURF( N 1 , 
1 ) ) **2+ ( Z Y-SURF (Nl,l))**2)/(( SURF ( Nl+1 , 2 l-SURF ( Nl » 2 I ) **2+( $URF( N1- 
1, 1)-SURF(N1,1I 1**2) I 
CONTINUE 
CALL OVCHK(NO) 


SUB 1 

515 

SUBi 

516 

J SUB 1 

517 

SUBI 

518 

SUBI 

519 

SUBI 

520 

SUBI 

521 

SUBI 

522 

SUBI 

523 

SUBI 

524 

SUBI 

52 5 

( SUBI 

52 6 

TSUBl 

527 

SUBI 

528 

SUBI 

529 

SUBI 

530 

SUBI 

531 

SUBI 

532 

SUBI 

533 

SUBI 

534 

SUBI 

535 

SUBI 

536 

SUBI 

537 

SUBI 

538 

SUBI 

539 

2 SUBI 

540 

1 SUB 1 

541 

SUBI 

542 

SUBI 

543 

SUBI 

544 

SUBI 

545 

2 SUBI 

546 

1 SUB 1 

547 

SUBI 

548 

SUBI 

549 

SUBI 

550 





605 



720 


730 

C 

c 

c 

800 

C 

C 

c 


810 


IF INO.EQ.2) GO 

TO 605 

SUB l 

551 

N0=600 

- 

SUB 1 

552 

GO TO 940 


SUB 1 

553 

ANS2I J » 1 l-ZY 


SUB 1 

554 

ANS2I J*2)=RY 


SUB l 

555 



SUB 1 

556 

END OF LODP 

FOR BOTH R GRID LINES 

SUB1 

557 



SUB 1 

558 

CONTINUE 


SUB 1 

559 



SUB 1 

560 

INTERPOLATE 

FOR UPPER AND LOWER VALUES 

SUB 1 

561 



SUB 1 

562 

DO 720 J=3 » 8 


SUB 1 

563 

ANSI! I » J 1 «= AN S2 ( 1 

,J)+IANS2I2, J)-ANS2f 1, J) )*IRX-ANS2< 1,2)1 /I ANS212, 

2SUB1 

564 

1 )-ANS2< 1,21) 


SUB1 

565 

CONTINUE 


SUB 1 

566 

CALL DVCHKINCI 


SUB1 

567 

IF (NO.EQ.2) GO 

TO 730 

SUB 1 

568 

N0=720 

r 

SUB 1 

569 

GO TO 940 


SUB 1 

570 

ANS1U* 1I*Z(II) 


SUB 1 

571 

ANSI! I * 2 ) =RX 


SU81 

572 



SUB 1 

573 

END OF LOOP 

FOR BOTH Z GRIO LINES 

SUB 1 

574 



SUB 1 

575 

CONTINUE 


SUB1 

576 



SUB1 

577 

FIND FINAL VALUES 

SUB 1 

578 



SUB 1 

579 

00 610 J= 1 * 6 


SUB1 

580 

ANSI JJ*ANSl< 1. J+2)+(AN$l<2, J+2)-ANSlll,J+2) )*<ZX-ANS1I 1* 11 J/l ANS1ISUB1 

581 

12* 1 1 -ANSI ( 1,1)1 


SUB1 

562 

CONTINUE 


SUB 1 

58 3 

CALL DVCHKINO) 


SUB1 

584 

IF INO.EQ.2) GO 

TO 820 

SUB1 

585 

N0=8t 0 


SUB 1 

586 


/GY 




GO TO 1 

9A0 

SUB1 

587 

820 

RETURN 


SUB 1 

588 

C 



SUB 1 

589 

9A0 

WRITE 

(3,9A2) 

SUB 1 

590 

9A2 

FORMAT 

( 35H00I V I DE CHECK ERROR IN SU8R. D6LTRP) 

SUB 1 

591 

950 

WRITE 

(3,952) NO, Z X,RX,I 1,J1,KEEP,ZI,RI 

SUB 1 

592 

952 

FORMAT 

(19H NEAR STATEMENT NO. * I A/ IX 3HZX* , E 15. 8, AX3HRX* , E 1 5. 

8/1X3HSUB1 

593 


1 1 1* * I A 

,AX3HJ1=,IA,AX5HKEFP«*IA/1X3HZ1**AE18.8/IX3HRI=, AE18.8) SUB1 

59 A 


WRITE 

(3,955) ((ANSl(l,J)*J*l«8),I*i,2),((ANS2(I,J),J-l,8),I 

*1,2) SUB 1 

595 

955 

FORMAT 

( 1 X5HANSl=/8E 16. 8/8E 16. 8/ lX5HANS2=/8 6 16.8/8E16.8/1H1) 

SUB 1 

596 


XYZ=-2 

• 

SUB1 

597 


ZYX* SQRT ( XYZ 1 

SUB 1 

598 


CALL EXIT 

SUB1 

599 


RETURN 


SUB1 

600 


END 


SUB 1 

601 


SUBROUTINE SHOCK 

SUB2 

1 

C 

COMPUTES SHOCK VALUES 

SUB2 

2 


COMMON 

CASE I D( 1A),ITS1,ITS2,ITS3,ITSA, IT 1 1, I TI 2, IT I 3, I T I A, EPSi, EPSSUB2 

3 


12,EPS3 

,EPSA,EPS5,EPS6,EPI1,EPI2,EPI3,EPIA,EPI5,EPI6,EPI7,VP, 

AR,LENSUB2 

A 


IGTH,APR,BPR,BIGAPR,BIGBPR,ESTAR, ALPHA, BETA, RHOSTR, EPRS,RHOS 

SUB2 

5 


COMMON 

XMESH(20,20,6) ,XMESH2( 20, 20 ,61,2(201, R< 20), SURF! 15,8) 

, SURF2SUB2 

6 


1( 15*8) 

,TAB( 15,1A,2) »TA82 (15,1A,2) ,$PART (15,2,2) ,RARF( 15,11), 

RARF2ISUB2 

7 


115, A), 

RPARTI 15,2) 

SUB2 

8 

C 



SUB2 

9 


COMMON 

ZO, R0» PO » UO, VO » LO * MO, RHOO » EO » AO , UBARO , VBARO 

SUB2 

10 

C 



SUB2 

n 


COMMON 

NP,NT ,NR,NI , NOEL, I SUB 

SUB2 

12 

C 



SUB2 

13 


COMMON 

zmin,zmax,rmin,rmax,raoius,gz,gr,delta,h 

SUB 2 

1A 


COMMON 

DIRCOS 

SUB2 

15 


COMMON 

TIME 

SUB2 

16 


COMMON 

IRARF 

SUB2 

17 


COMMON 

KSTOP 

SUB2 

18 


COMMON 

TPS I 

SUB2 

19 


COMMON 

KKK 

SUB2 

20 

C 



SUB2 

21 





non 


REAL LO, MO, LENGTH, MU, KO 
C 

0 [ MENS ION ANSI 6 I 
EXTERNAL FGOF1 
6P S-. 000000 1 
C 

C BEGIN SHOCK POINT COMPUTATIONS 

DO 505 K = 1 » 2 
GO TO <158, 1601, K 
158 NN=NP 

GO TO 162 
160 NN=NT 

VBARS*0. 

162 00 500 I -1 , NN 

MPRO J = 0 

IF (TAB4 I»14,K).LT.0.) GO TO 500 
164 CONTINUE 

INITIALIZE TO ITERATE ON l SHOCK POINT 
NBIC=0 

Z0*TAB2< I, 1,K) 

R0= TAB2( I , 2 , K) 

P0=TAB< I , 3 ,K ) 

UO-T AB ( I , 4 ,K ) 

VO-TAB ( l , 5 *K ) 

RH00=TAB< I ,6,K) 

E0=TAB ( I , 7,K) 

AO- TAB ( I , 6 *K ) 

L0=TAB(I,9,K> 

M0*TA8< I ,10,K) 

UBARO-TABI I ,ll,K) 

VBARO=TAB< I * 12,K) 

UT0H=TAB< I • 13, K) 

UTO*UTOH 
ITS44=ITS4 


SUB2 22 
SUB2 23 
SUB2 24 
SUB2 25 
SUB 2 26 

SUB 2 27 

SUB2 28 
SUB2 29 
SUB2 30 
SUB2 31 
SUB2 32 
SUB2 33 
SUB2 34 
SUB2 35 
SUB2 36 
SUB2 37 
SUB2 38 
SUB2 39 
SUB2 40 
SUB2 41 
SUB2 42 
SUB2 43 
SUB2 44 
SUB2 45 
SU82 46 
SU82 47 
SUB2 48 
SUB2 49 
SUB2 50 
SUB2 51 
SUB2 52 
SUB2 53 
SUB2 54 
SUB2 55 
SUB2 56 
SUB2 57 





non 


169 

170 

180 
1 8 A 


186 


IF ( IRARF.EQ. 1) GO TO 170 

SUB2 

58 

H*l-(NR-2l*(K-2) 

SUB2 

59 

FF=R0-RARF2I M+ 1 ,2 ) - < RARF2 { M, 2 I -RARF2 < M+l , 2 J> *< ZO-R ARF2 ( M+ 1 , 

1) ) /IRASUB2 

60 

1RF2 ( M» l )~RARF2(M+1 « 1 ) ) 

SUB2 

61 

COMTINUE 

SUP-2 

62 

IF (FF.LT..001I GO TO 350 

SUB2 

63 

IF U.NF.II GO TO 180 

SUB2 

64 

M0=TAB(1,10,M 

SUB2 

65 

L0=0. 

SUB2 

66 

GO TO 190 

SUB2 

67 

IF < I •LT.NN) GO TO 104 

SUB2 

68 

UP=H*(TAB| I-1*13*K)-TAB( I , 1 3 « K ) ) 

SUB2 

69 

TMP*SQRT< (TAB2< 1-1 , 2 , K ) -RO )**2+ < TAB2 <1 -1 , 1,K)-Z0)**2) 

SUB2 

70 

DOMEG*UP/TMP 

SUB2 

71 

GO TO 186 

SUB2 

72 

OR l=TAB2< I+1,2,K)-R0 

SUB2 

73 

OR2=RO-TAB2( !-l,2,K) 

SUB2 

74 

DZ i = TAB2 < 1+1,1, K)-ZO 

SUB2 

75 

0Z2=Z0-TAB?< 1-1,1, Kl 

SUB2 

76 

UP=H* (TAB! 1-1,13, KJ-TABI 1+1, 13, K) ) 

SUB2 

77 

TMP= SORT! DR l**2+DZ 1**2) +SQRTI 0R2**2+DZ2**2) 

SUB2 

78 

OOMEG=UP/TMP 

SUB2 

79 

K ICK= 1 84 

SUB2 

80 

CALL DVCHK ( KO) 

SUB2 

81 

IF (KQ.EQ.1I GO TO 9980 

SUB2 

82 


SUB 2 

83 

COMPUTE NEW LO,MO 

SUB2 

84 


SUB2 

85 

COMEG“COS( OOMEG) 

SU62 

86 

SOMEG=SINCOOMEG) 

SUB2 

87 

XLO=LO*COMEG+NO*SOMEG 

SUB2 

88 

XMO=MO*COMEG-LO*SOMEG 

SUB2 

89 

LO*XLO 

SUB2 

90 

MO=XMO 

SUB2 

91 

IF I PO.GT • • 00251 GO TO 190 

SUB2 

92 

P0=0. 

SUB2 

93 



190 

C 

C 

c 

195 


198 


200 


201 

203 


C 

C 

C 


00=0. 

SUB2 

94 

V0=VP*< l.-t-l. \ **K) /2. 

SUB 2 

95 

RH00=RH0STR 

SUB2 

96 

E0=0. 

SUB 2 

97 

AO=SQRT(BIGAPR/RHOSTR) 

SU82 

98 

UBARO=MO*VO 

SUB2 

99 

VBAR 0= V8 AR S 

SUB 2 

100 

UTO=UBARO+AO*(-l. > **K 

SUB2 

101 

GO TO 350 

sue 2 

102 

ITS33=ITS3 

SUB 2 

103 


SUB2 

104 

FIND GUESS TO START ITERATION 

SUB2 

105 


SUB2 

106 

CALL GUESS! l,KOD2,ZO,RO,I ,K,ZZ,RR,DZ,DR) 

SUB2 

107 

IF (K0D2.EG.1) GO TO 200 

SUB 2 

108 

WRITE (3,1981 l »K,ZO,RO 

SUB2 

109 

WRITE ( 3, 7002 I ZZ,RR,DZ,OR 

SUB2 

110 

FORMAT (31H0N0 GUESS FOUND FOR SHOCK POINT/3 HO I=, I4,6X2HK=, 

14, 10X3SUB2 

111 

1 HZ 0 = »E15. 8,10X3 HR0 = ,El5.8/lHl) 

SUB2 

112 

CALL EXIT 

SUB2 

113 

CONTINUE 

SUB2 

114 

KY=K 

SUB2 

115 

NTW=0 

SUB2 

116 

IF (K.EQ.2 ) GO TO 201 

SUB 2 

117 

VB AR S= VP*L 0 

SUB2 

118 

DIRC0S=-M0 

SUB2 

119 

GO TO 203 

SUB2 

120 

01 RCOS=MO 

SUB 2 

121 

CONTINUE 

SUB2 

122 

CALL NRI T2(Z1,R1,ZZ,DZ,RR.DR,EPS1, EPS2,FG0F 1, ITS1,K0DE) 

SUB2 

123 

IF (KOOE.EQ.OI GO TO 205 

sue 2 

124 


SUB2 

125 

BICHARACTERISTIC SELECTION SCHEME 

SUB2 

126 


SUB2 

127 

IF (NBIC.EQ.O) GO TO 204 

SUB2 

128 

IF ( NT W . EQ • 8 ) K Y=KY+ l 

SUB2 

129 


/ 62 . 



IF INTW.GT.2l ) GO TO 7000 
ANGt=ANGl+OTPSI *1-1. I**KY 
DIRCOS*SINI ANGl) 

LO = COS( ANGl ) 

NTW=NTW+l 
GO TO 203 
204 CONTINUE 
NB IC= l 

CALL OBLTRP<ZZ*RR*ANSl 
UA=AN$ ( 2 ) 

VA=ANS< 3 ) 

AA® ANS ( 6 I 
ZZZ® ZZ+DZ 

CALL OBLTRP(ZZZ*RR»ANS) 

UB -ANS < 2 ) 

VB®ANS( 3 ) 

AB=ANS<6> 

RRR«RR+DR 

CALL OBLTRPCZZ»RRR t ANS I 
UC=ANS( 2 ) 

VC®ANS( 3 I 
AC® ANS ( 6 I 
MM=0 

TPSI=l.5708*(-l. )*** 

X B®ZZ 
YB=RR 
NON® 5 
CA=NOM 

6201 OTP SI = .01745 

DTPSI®CA*OTPSl 
TPSI=TPSI*0TP$I*<-1. ) **K 
Al=l.+H*< VB-VA+C AB“AAI*SINITPSI 11/ DZ 
Bl®H*( VC-VA+I AC-AA) *S1NITPSI ) »/DR 
Cl = -I ZZ-ZO+HM VA+AA*SIN( TP SI » » ) 
A2®H*( UB-UA-M A8-AA ) *COS< TPSIll/DZ 
B2= 1. ♦H*( UC-UA+I AC-AA ) *COS ( TPSI II /DR 


SUB2 130 
SUB2 131 
SUB2 132 
SUB2 133 
SUB2 134 
SUB2 135 
SUB2 136 
SUB 2 137 
SUB2 1 38 
SUB2 139 
SUB2 140 
SUB2 141 
SUB2 142 
SUB2 143 
SUB2 144 
SUB2 145 
SUB2 146 
SUB2 147 
SUB2 148 
SUB2 149 
SUB2 150 
SUB2 151 
SUB2 152 
SUB2 153 
SUB2 154 
SUB2 155 
SUB2 156 
SUB2 157 
SUB2 158 
SUB2 159 
SUB2 160 
SUB2 161 
SUB2 162 
SUB2 163 
SUB2 164 
SUB2 165 


/£ 3 




C2=-(RR-R0+H*(UA+AA*C0S<TPSI ) ) ) 


SUB2 

166 


DET=A1*62-A2*B1 


SUB 2 

167 


OELX-C R2*C 1-B1*C2) /GET 


SUB2 

168 


DEL Y = ( Ai*C2-A2*C l ) /DET 


SUB2 

169 

c 



SU32 

170 

c 

TEST FOR SAME REGION 


SUB2 

171 

c 



SUB2 

172 


XB 1 = X8 +DEL X 


SUB2 

173 


YB l=YB+DEL Y 


SUB? 

174 


M=CQMP( XB, Y8,XBl,YBL ) 


SUB2 

175 


IF (M.EQ.l) GO TO 6203 


SUB 2 

176 


mm=mm+ 1 


SUB2 

177 


IF ( MM.LT • 360/N0M) GO TO 6201 


SUB2 

178 

7000 

WRITE (3, 7001 ) 


SUB2 

179 

7001 

FORMAT (41H08ICHARACTERISTIC SELECTION SCHEME 

FA I LEO ) 

SUB2 

180 


WRITE (3,614) ZO,RO 


SU62 

181 

614 

FORMAT (1X5H20 =,F 15. 8 ,4X5HR0 =,E15.8) 


SUB 2 

182 


WRITE (3,7002) UA , VA , AA , UB , VB , AB ,UC , VC , AC , Z 2 , 

DZ,RR, DR, ANG1 

SUB2 

183 

7002 

FORMAT (4E16.8) 


SUB2 

184 


CALL EXIT 


SUB2 

185 

6203 

CONTINUE 


SU82 

186 


WRITE (3,6210) 


SUB2 

187 

6210 

FORMAT ( 53H0BICHARACTERISTIC SELECTION SCHEME 

EMPLOYED BY SHOCKX) 

SU82 

188 

6204 

ANG1=TPSI 


SUB2 

189 


T 1=D I RCOS 


SUB2 

190 


T2=L0 


SUB2 

191 


DIRC0S=SIN<ANG1) 


SUB2 

192 


L0=C0S ( ANG l ) 


SUB2 

193 


GO TO 203 


SUB 2 

194 

205 

CONTINUE 


SUB2 

195 


UBARSI=0. 


SUB2 

196 


IF (K.EQ.l )UBARSl=MO*VP 


SUB 2 

197 


CALL DBLTRP(Z1,R1,ANS) 


SU82 

198 


P l=ANS ( 1 ) 


SUB2 

199 


U1=ANS( 2 ) 


SUB2 

200 


VI = ANS ( 3 ) 


SUB2 

201 





RH0l=ANS(4» 

E1=ANS<5> 

A1 -AN S ( 6 ) 

206 CONTINUE 
K l CK=205 

CALL OVCHK(KQ) 

[F (KQ.EQ.l) GO TO 9980 
IF (N8IC.EQ.0) GO TO 207 
7003 SINTH=ABS(OIRCOS) 

C0STH*A8S(L0I 

01RC0S=T1 

L0=T2 

207 CONTINUE 
UBAR1=L0*U1+M0*V1 

IF ( K.EQ.2 ) GO TO 208 
IF (UBAR1.LT. VP/2. > GO TO 208 
UB AR l = UBAR S l-UBARl 

208 CONTINUE 

218 CONTINUE 

M1=PART( l»Zl,Rl*ZZ ,RR»OELTA,NOEL) 

IF <M1.EQ.1I GO TO 210 

PUR^O. 

PVR=0. 

GO TO 215 

210 CALL DBLTRPI ZZ,RR»ANS) 

OP=RR-R 1 

PUR=(ANS( 2 ) —U 1 1 /DP 

219 CONTINUE 
PVR=|ANS(3)-VIJ/DP 

215 M1 = PART(2,Z1,R1 ,ZZ *RR, DELTA t NDEU 
IF (HI. EG. 1) GO TO 220 
PUZ=0. 

PVZ=0. 

PA Z = 0. 

GO TO 225 

220 CALL DBLTRPI ZZ»RR*ANS) 


SUB2 2 02 
SU82 203 
SUB2 204 
SUB2 205 
SUB2 206 
SUB2 207 
SUB2 206 
SUB2 209 
SUB2 210 
SUB2 211 
SUB2 212 
SUB2 213 
SUB2 214 
SUB2 215 
SU82 216 
SUB2 217 
SUB2 218 
SUB2 219 
SUB2 220 
SUB2 221 
SUB2 222 
SUB2 223 
SUB2 224 
SUB2 225 
SUB2 226 
SUB2 227 
SUB2 228 
SUB 2 229 
SU82 230 
SUB 2 231 
SUB2 232 
SUB2 233 
SUB 2 234 
SUB2 235 
SUB2 236 
SUB2 237 






PP=ZZ-Z1 

SUB 2 

2 38 


PUZ = <ANS<2>-Ul>/0P 

SUB 2 

2 39 


PVZMANSI 3I-V1I ZOP 

SU62 

240 

225 

CONTINUE 

SU62 

241 


IF (NBIC.EQ.il GO TO 7004 

SUB 2 

242 


PURB 1=L0*PUR+M0*PVR 

SUB 2 

243 


PVRftl=LO*PVR-MC*PUR 

SUB 2 

244 


PVZBl=LO*PVZ-MO*PUZ 

SUB 2 

245 


PVE81=-M0*PVRBI+L0*PVZBi 

SUB2 

246 


SBAR 1=PVE8 1 

SUB 2 

247 

226 

CONTINUE 

SUB2 

248 


IF I ABS(R1 l.LE.EPSI GO TO 235 

SUB2 

249 


SBAR1=SBAR1+U1/R1 

SUB2 

2 50 


GO TO 240 

SUB2 

251 

7004 

CONTINUE 

SUB2 

252 


IF < Vl.GT.VP/2.. AND.K.EQ.l »VI=VP-V1 

SUB 2 

253 


SBAR 1=SINTH**2*PUR-SI NTH*COSTH* (PUZ+PVR)+C0STH**2#PYZ 

SUB2 

254 


GO TO 226 

SUB2 

255 

235 

SBAR1=SBAR 1 + PUR 

SUB2 

256 

C 


SUB2 

257 

C 


SUB 2 

258 

240 

I TS22= I TS2 

SUB 2 

259 



SUB2 

260 

250 

CONTINUE 

SUB2 

261 


CALL EQOSSt PFR » PFE 1 

SUB2 

262 


B1GAI=RH01*A1 

SUB2 

263 


KiCK=250 

SUB2 

264 


CALL DVCHKfKQ) 

SUB2 

265 


IF <KQ.EQ.1I GO TO 9980 

SUB2 

266 


temp^i.-rhostr/rhoo 

SUB2 

267 


TMP=SQRT(PO*T6MP/RHOSTR) 

SUB2 

268 


IF (K.E0.2) GO TO 251 

SUB2 

269 


IF < TMP.LT.VP/2. » GO TO 251 

SUB2 

270 


MPRO J= 1 

SUB2 

271 


TMP=U8ARSl-TMP 

SUB2 

272 

251 

CONTINUE 

SUB2 

273 





TMP6=TMP 

SUF 2 

2 7A 

25 6 

CONTINUE 

SUP 2 

275 


f N8 I C = NB l C 

SUB 2 

276 


TMP1-PL+BIGA1*IJBARI -RHOl *H*SBAR 1 *A1**2 +8 I GA 1* ( 

-UBAR1+CCJST H*U l+SINTSUB? 

277 


IH*V1-SINTH*L0*VBARS + C0STH*M0*V8ARS ) * (FNB1C ) 

SUB 2 

278 


TMP2=PFP*TEMP+P0*R HOSTR/RHOO**? 

SUP. 2 

279 


T W .P*> = PFE *TF MP 

SUB? 

28) 


GTMP=-RH01 *A1 

SUB2 

261 

- 

IF <NBIC.EQ.OI GO TO 259 

SUB 2 

282 


GTK:P = GTMP*<COSTH*LO+SI NTH* MO 1 

SUB 2 

283 

259 

CONTINUE 

SUB2 

28A 


BIGG=PO-( GTMP*TMP+TMP1 ) 

SUB 2 

265 


PGR=PFR- ( ( GTMP*TMP2 ) /< 2. *RHQSTR*TMP6 ) ) 

SUB2 

286 


PGE = PFE-((GTMP*TMP5)/(2. *RHOSTR*T MP6 ) I 

SUB2 

287 

265 

TMP=.5*< l./RHOSTR-l./RHOOI 

SUB2 

288 


BIGH=CO-TMP*PO 

SUB2 

289 


PHR=-TMP*PFR-.5*P0/RH00**2 

SUB 2 

290 


PHF = 1 .-TMP *PFE 

SUB2 

291 


IF < ABS(BIGHI.GT..0001> GO TO 267 

SUB2 

292 


81GM=0. 

SUB 2 

293 

267 

IF CABSIBIGGI.GT. .00011 GO TO 269 

SUB? 

29A 


B I GG=0. 

SUB2 

295 

269 

CONTINUE 

SUB 2 

296 

C 


SUB2 

297 

C 

COMPUTE DELTA EO*DELTA RHOO 

SUB2 

298 

c 


SUB2 

299 


OOWN=PGt*PHR-PGR*PHE 

SUB2 

300 


DE0=t-BIGG*PHR+8IGH*PGR) /DOWN 

SUB2 

301 


0RHGO=I-BIGH*PGE+BIGG*PHF> /DOWN 

SUB2 

302 

c 


SUB 2 

303 


EO2-EO+DE0 

SUB 2 

30A 


IF <E02.LT.0.»E02=0. 

SUB2 

305 


RH002=RH00+DRH00 

SUB2 

306 


IF (RH002.LT. RHOSTR>RHQ02=RHOO 

SUB 2 

307 


K ICK = 265 

SUB2 

308 


CALL DVCHK< KQI 

SUB2 

309 


/& P 






IF (KQ.EQ.l) GO TO 9980 

SUB2 

310 


CALL EQOSPI RH002«E02 »P02 ) 

SUB2 

311 


UBAR02=( 1.-RH0STR/RH002 ) *( P02/RH0STR) 

SUB2 

312 


IF < UBAR02 »6T • 0* ) GO TO 2669 

SUB2 

313 


WRITE (3,2700) P02 ,RH002,E02,R0, 20 

SUB2 

314 


WRITE (3,7002) PI ,Ul , VI . RH01 ,E l , Z1 TRi , SBAR1 

SUB2 

315 

2700 

FORMAT (4E16.8) 

SUB 2 

316 

2669 

CONTINUE 

SUB2 

317 


UBAR02*SQRT(UBAR02) 

SUB2 

318 


IF (EQ2.LT.1.E-5) GO TO 273 

SUB2 

319 


IF (ABS( (E02-E0I/E021.LT.EPS4) GO TO 273 

SUB2 

320 


IF (ABS(DE0).GT..01*EPS4I GO TO 275 

SUB2 

321 

273 

IF < ABS( (RH002-RH00 ) /RH002 ).LE.EPS3) GO TO 285 

SUB2 

322 


IF (ABSI0RH00I.LT.EPS3) GO TO 285 

SUB2 

32 3 

275 

ITS22*I TS22-1 

SUB2 

324 


IF (ITS22.GT.0) GO TO 280 

SUB2 

325 


WRITE (3,278) ITS2 

SUB2 

326 

278 

FORMAT (35H0E AND RHO FAILED TO CONVERGE AFTER, 14, 6H TRIES) 

SUB 2 

327 


WRITE (3,279) I ,K,ZO,RO,EO,RHOO,P0,E02,RHO02 ,P02 

SUB2 

328 

279 

FORMAT ( 1X2HI=, I4,4X2HK®, I4/1X4HZ0 *, E 15 . 8, 4X4HR0 - , E 15. 8, 4X4HE0 

«SUB2 

329 


1,E15.8,4X6HRHD0 =,E15.8,4X4HP0 =,E15.8/1X4HE02*, E15.8,4X6HRH002*, 

ESUB2 

330 


115.8*4X4 HP 0 2* «E15.8/1HI) 

SUB2 

331 


STOP 

SUB2 

332 

280 

E0=E02 

SUB2 

333 


RHO0*RH002 

SUB2 

334 


P0*P02 

SUB2 

335 


UBAR0*UBAR02 

SUB2 

336 


GO TO 250 

SUB2 

337 

285 

E0=E02 

SUB2 

338 


RH00=RH002 

SUB2 

339 


UBAR0=UBAR02 

SUB2 

340 


AO® SORT! PFR+P02*PFE/RH00**2 ) 

SUB2 

341 

C 


SUB2 

342 

C 


SUB2 

343 


CALL OVCHMKQI 

SUB2 

344 


KICK=285 

SUB2 

345 




IF (KQ.EO.l) GO TO 9980 

SUB2 

346 


IF <K.EQ.2I GO TO 286 

SUB2 

347 


VBAR 0=VP *L0 

SUB2 

348 


GO TO 287 

SUB2 

349 

286 

VBAR0*0 • 

SUB 2 

350 

287 

CONTINUE 

SUB2 

351 

295 

P0=PQ2 

SUB2 

352 


IF (K.EQ.2J GO TO 296 

SUB2 

353 


UBAR0*UBARS1-UBAR0 

SUB2 

354 

296 

CONTINUE 

SUB2 

355 


UTO* ( RH00*U8AR0-RH0STR*UBARSU / < RHOO-RHOSTR ♦ 

SUB2 

356 


VO=MO*UBARO+LO*VBARO 

SUB2 

357 


UO»LO*UBARO-MO*VBARO 

SUB2 

358 


UBAR*=« 5*< UTOH+UTOI 

SUB2 

359 


IF ( ABS< (UBAR-UTOH) /UBAR ) . LE . EPS6 1 GO TO 350 

SUB2 

360 


IF ( ABS< UBAR-UTOH) .LT.EPS6I GO TO 350 

SUB2 

361 


ITS44* ITS44-1 

SUB2 

362 


IF < I TS44.GT.0) GO TO 325 

SUB 2 

363 


WRITE <3,2971 I TS4*UT0H,UT0 

SUB 2 

364 

297 

FORMAT < 30H0UBAR FAILED TO CONVERGE AFTER, I A, 6H TR IES/1X5HUT0H«» 

El SUB 2 

365 


15. 8, 4X4HUT0* »E 15.8) 

SUB2 

366 


CALL EXIT 

SUB2 

367 


WRITE <3,2791 I »K, ZO,RO,EO,RHOO, PO ,E02,RH002 »P02 

SUB2 

368 

C 


SUB2 

369 

C 

INIT. FOR MORE U BAR ITERATIONS 

SUB 2 

370 

C 


SUB2 

371 

325 

UTOH=UBAR 

SUB2 

372 


AVM0**< TAB! I , 10, K ) +M0 ) *. 5 

SUB2 

373 


A VLO=< TAB! I ,9,K1+L0)*.5 

SUB2 

374 


Z0-TAB<1*1»K) ♦UBAR*H*AVMO”VBARS*AVLO*H 

SUB2 

375 


RO=TAB< I, 2,K)+UBAR*H*AVL0-V8AR$*AVM0*H 

SUB2 

376 


LO-A VLG 

SUB2 

377 


MO=AVMO 

SUB2 

378 


GO TO 195 

SUB2 

379 

C 


SU82 

380 

C 

ONE SHOCK POINT HAS CONVERGED 

SUB 2 

381 



c 


SUB2 

362 

350 

TAB2U ,1,K)*20 

SUB2 

383 


TAB2( I ,2»K)=R0 

SUB2 

384 


TAB2 ( I , 3, K ) *P0 

SUB2 

385 


TAB2I 1 # 4, K ) *U0 

SUB2 

386 


TAB2U ,5»K)=V0 

SUB2 

387 


TAB2C I »6»K)=RH00 

SUB2 

388 


TAB2( I # 7,K)=E0 

SUB2 

389 


TAB21 I #6#K )=A0 

SUB2 

390 


TAB2I 1 »9,K )“L0 

SUB2 

391 


TAB2 ( I # 10# K ) =M0 

SUB2 

392 


TAB2( ! #11 # K ) *UBAR0 

SUB2 

393 


TAB2( I , 1 2 , K ) =VB ARO 

SUB2 

394 


TAB2(I,13,K>-UT0 

SUB2 

395 


K I CK*500 

SUB2 

396 


CALL OVCHK < KOI 

SUB2 

397 


IF (KQ.EO.U GO TO 9980 

SUB2 

398 

C 


SUB2 

399 

C 


SUB2 

400 

500 

CONTINUE 

SUB2 

401 

505 

CONTINUE 

SUB2 

402 


RETURN 

SUB2 

403 

9980 

WRITE ( 3 # 9985 ) KICK 

SUB2 

404 

9965 

FORMAT ( 32HOOI VIDE CHECK NEAR STATEMENT N0.,I5,15H 

IN SUBR. SH0CK/SUB2 

405 


UHLI 

SUB2 

406 


CALL EXIT 

SUB2 

407 


RETURN 

SUB2 

408 


ENO 

SUB2 

409 


SUBROUTINE FG0F1 (ZX,RX,SS»QQ) 

SUB3 

l 

C 


SUB3 

2 

C 

COMPUTES SL.Ql FOR SHOCK LINE 

SUB3 

3 

C 

ITERATION FOR 21, Rt 

SUB3 

4 

C 


SUB3 

5 


COMMON CASE I D< 14), ITS!# I TS2# ITS3 , I T$4, ITI1, ITI2# ITI3. IT 14, EPS 1 # EPSSUB3 6 
12,EPS3,EPS4,EPS5,EPS6,EPII ,EPI 2 , EPI 3 , EPI4, EP 1 5, EPI 6, EP 1 7, VP, AR,LENSUB3 7 
1GTH, APR *BPR, 81 GAPR ,8 IGBPR, ESTAR, ALPHA# BETA, RHOSTR# EPRS, RHOS SUB3 8 


X 




COMMON XMESHt 20,20,6) , XMESH2 ( 20 , 20 , 6 ) ♦ Z < 20 ) , R { 20 ) , SURF < 15,81 

, SURF 2SUB 3 

9 


K 15, 8), TAB! 15,14,2) ,TA02( 15,14,2 ) ,SPARTU 5,2,2) ,RARFC 15, 11), 

RARF2CSUB3 

10 


1 15* 4 ) »RPAR T< 15,2) 

SUB3 

11 

c 


SUB 3 

12 

c 


SUB3 

13 


COMMON ZO,RO,PO,UO,VO*LO,MO,RHOO,tO,AO,UBARO, VBARO 

SUB 3 

14 

c 


SUB3 

15 


COMMON NP,NT,NR,NI ,NDEL,ISUB 

SUB3 

16 

c 


SUB 3 

17 


COMMON ZMIN»ZMAX,RMl N,RMAX , RADIUS, GZ,GR, DEL TA,H 

SUB3 

18 


COMMON DIRCOS 

SUB3 

19 


COMMON TIME 

SUB3 

20 


COMMON I RARE 

SUB3 

21 


COMMON KSTOP 

SUB3 

22 


COMMON TPS I 

SUB3 

23 


COMMON KKK 

SUB3 

24 


REAL LO, MO, LENGTH, MU, KO 

SUB 3 

25 

c 


SUB3 

26 


DIMENSION ANSI 6 ) 

SUB3 

27 

c 


SUB3 

28 


REAL L 0, MO 

SUB3 

29 


CALL DBLTRPIZX,RX,ANS) 

SUB 3 

30 


Ul=ANS(2) 

SUB3 

31 


V1 = ANS t 3 ) 

SUB3 

32 


A 1 = ANS ( 6 ) 

SUB3 

33 


SS=ZX-ZO+H*( Vl+Al*DIRCOS) 

SUB3 

34 


QQ=RX— RO+H*<U1+AI*LO) 

SUB 3 

35 


RETURN 

SUB3 

36 


END 

SUB3 

37 


SUBROUTINE INTER 

SUB4 

1 

c 

COMPUTES INTERIOR REGION POINTS 

SUB4 

2 


COMMON CASE I D( 14 ) , I TS 1 , 1 TS2, I TS3, I TS4, I T 1 1 , I T 1 2 , I T I 3 , 1 T 1 4, EPS 1 , EPSSUB4 

3 


12,EPS3,EPS4,EPS5,EPS6,EPI1,EPI2,EPI3,EP14,EPI5,EPI6, EPI7,VP, 

AR,LEN$UB4 

4 


1GTH,APR,BPR,BIGAPR,BIGBPR,ESTAR,ALPHA,BETA,RHOSTR,EPRS,RHOS 

SUB4 

5 


COMMON XME SH (20, 20,6) , XMESH2I 20, 20 ,6 ) « Z ( 20) , R ( 20 ) , SURF C 15,8) 

, SURF 2SUB4 

6 


l( 15, 8), TAB! 15,14,2) , TAB2 ( 15*14,2) , SPARTU5 , 2 , 2 ) , RARE < 15, 1 1 ) , 

RARF2CSUB4 

7 




u u 


ll5,*),RPARm5,2) 

SUB* 

e 


SUB* 

9 


SUB* 

10 

COMMON ZO, RO ,PO ,U0 , VO, LO»MQ » RHOO » EO» AO »UBARO » VBARO 

SUB* 

11 


SUB* 

12 

COMMON NP,NT«NR*NI * NOEL * I SUB 

SUB* 

13 


SUB* 

l* 

COMMON ZMIN*ZMAX*RMIN,RMAX,RADIUS,GZ,GR.DELTA,H 

SUB* 

15 

COMMON OIRCOS 

SUB* 

16 

COMMON TIME 

SUB* 

17 

COMMON IRARF 

SUB* 

18 

COMMON KSTOP 

SUB* 

19 

COMMON TPSI 

SUB* 

20 

COMMON KKK 

SUB* 

21 


SUB* 

22 


SUB* 

23 

REAL LOt MO « LENGTH* MU «KO 

SUB* 

2* 

01 MENS ION ANS(6(.LL(3t.ZIIU)iRMin,PniIMJI(in,VU 111* RHOH HI SUB* 

25 

l*EItll),AI<ll) *PUR (111 *PVR< 11 1 * PARI III *PUZ< lll»PVZ(ll)» PAZ (lit 

, PS l SUB* 

26 

i<7),spsnni.cpsn in.siu) 

SUB* 

27 


SUB* 

28 

EXTERNAL FGOFJ * FG0F5 

SUB* 

29 

INTEGER CHECK, CHECK2 

SUB* 

30 


SUB* 

31 

FORMAT (1H1) 

SUB* 

32 

EPS=. 0000001 

SUB* 

33 

00 905 J-1,20 

SUB* 

3* 

00 900 1=1,20 

SUB* 

35 

M=TEST < Z ( I I,R(JII 

SUB* 

36 

ZO=Z C I I 

SUB* 

37 

R0»R<J) 

SUB* 

3B 

K I CK= 1 

SUB* 

39 

CALL DVCHM KOI 

SUB* 

*0 

IF ( KQ.EQ. 1) GO TO 9980 

SUB* 

*1 

IF < M. EQ. 3. AND. ZO. LT. EPS. AND. ABS( RO-RAOIUSI.LT.EPS »M=l 

SUB* 

*2 

IF IM.NE.l) GO TO 900 

SUB* 

*3 






00 2 L«l,NP 

SUB4 

44 


IF (TABU* 14*11. IT. 0.) GO TO 20 

SUB4 

45 

2 

CONTINUE 

SUB4 

46 


IF ( IRARF.EO.il GO TO 20 

SUB4 

47 


DO 3 N-i . NR 

SUB4 

46 


IF (R(J).GT.RARF(N*2I 1 GO TO 5 

SUB4 

49 

3 

CONTINUE 

SUB4 

50 


GO TO 6 

SUB4 

51 

5 

CONTINUE 

SUB4 

52 


H-PlCK (Z ( 1 1 «R< J 1 1 3 1 

SUB4 

53 


FF=R(J)-RARF(M+l»2l-( RARF ( H f 2 1 -RARFIM+1# 

2ll*IZm-RARF<M+l t 1))/(RA$UB4 

54 


lRF(M t l)-RARF<M+l,l> ) 

SUB4 

55 


IF IFF. GT. 0.1 GO TO 20 

SUB4 

56 

6 

CONTINUE 

SUB4 

57 


P02=RARFC1,3I 

SUB4 

58 


U02«RARF(i,4> 

SUB4 

59 


V02-RARF 1 1 » 5 1 

SUB4 

60 


RH002“RARF< 1*6) 

SUB4 

61 


E02»RARF(1,7I 

SUB4 

62 


A02-RARFI 1*81 

SUB4 

63 


GO TO 870 

SUB4 

64 

20 

CONTINUE 

SUB4 

65 


CALL GUESS(2 t K0D.Z0,R0*I » J»ZZ»RRfD2*DRI 

SUB4 

66 


IF (KOD.EQ.lt GO TO 580 

SUB4 

67 


WRITE ( 3*5751 l»J.Z0*R0 

SUB4 

68 

575 

FORMAT (41H0N0 GUESS FOUND FOR INTERIOR 

REGION P0INT/3H0I- 14* 6X2HKSUB4 

69 


1=*14,10X3HZ0«*E15.8,10X3HR0-*E15.8/1HII 

SUB4 

70 


CALL EXIT 

SUB4 

71 

580 

CALL DBLTRPI ZZ.RR* ANSI 

SUB4 

72 

C 


SU84 

73 

C 

INITIALIZE FOR l POINT 

SUB4 

74 

C 


SUB4 

75 


psim-o. 

SUB4 

76 


PSH 31-1.0472 

SUB 4 

77 


PSI ( 4) *2.0944 

SUB4 

78 


PSI ( 61-4.18879 

SUB4 

79 





o n 


590 


C 

c 

594 


600 


610 


PSH 7)*5. 23599 

NBIC=0 

I T 1 22* IT! 2 

P0*ANS(ll 

U0=ANS<2) 

V0*ANS<3» 

RHOQ* AN S ( 4 I 

E0=ANS(5I 

A0=AN$<6) 

KICK«5flO 

CALL OVCHM KQI 

IF (KQ.EQ.ll GO TO 9980 

IF (ABSIR01.GT.EPS) GO TO 594 

Ll=l 

LL ( 1 1 *4 

LL ( 2 1 *6 

LLL-2 

GO TO 620 


IF ( A6S( RO-RADIUS) .GT.EPSI GO TO 600 
IF IZ0.GT.EPS) GO TO 610 
Ll*2 
LL ( 11 = 3 
LL<2»«7 
LLL*2 
GO TO 620 

IF (RO.LE. RADIUS. OR. ABSUOI.GT. EPS) GO 

L 1 = 3 

LL ( 1 1 *6 

LL I 2.1*7 

LLL*2 

GO TO 620 


Ll*4 


SUB 4 80 

SUB4 81 
SUB4 82 
SUB4 83 
SUB4 84 
SUB4 85 
SUB4 86 
SUB4 87 
SUB4 88 
SUB4 89 
SUB4 90 
SUB4 91 
SUB4 92 
SUB4 93 
SUB4 94 
SUB4 95 
SUB4 96 
SUB4 97 
SUB4 98 
SUB4 99 
SUB4 100 
SUB4 101 
SUB4 102 
SUB4 103 
SUB4 104 
SUB4 105 
SUB4 106 

TO 610 SUB4 107 

SUB4 108 
SUB4 109 
SUB4 110 
SUB4 111 
SUB4 112 
SUB4 113 
SUB4 114 
SUB4 115 




IL< 11=1 

SUB4 

116 


LL(2I*4 

SUB 4 

117 


LL<3)«6 

SUB 6 

118 


LLL=3 

SUB4 

119 

c 


SUB 4 

120 

c 

ITERATE FDR I VALUES 

SUB4 

121 

c 


SUB4 

122 

619 

CONTINUE 

SUB4 

123 

620 

00 630 KK*1»LLL 

SUB4 

124 


LUMP*Ll 

SUB4 

125 


1SUB-LUKKI 

SUB4 

126 

621 

CONTINUE 

SUB4 

127 


TPSKPSIU SUBI 

SUB4 

128 


SPSM ISUBI-SINITPSI 1 

SUB4 

129 


CPSI ( I SUBl*COS< TPSI 1 

SUB4 

130 


CALL NRIT2UM I SUBI ,RI USUB1 .ZZ.DZ.RR. DR.EPI 1 . EP 12 . FGOF I ♦ 

ITI1.K00ESUB4 

131 


n 

SUB4 

132 


IF (KODE.NE.O) GO TO 6200 

SUB4 

133 

625 

CALL 08LTRP ( ZI < I SUB I »RI II SUBI » ANS 1 

SUB4 

134 


PI( ISUB)=ANS< 1) 

SUB4 

135 


UK 1SUB)«ANS(2I 

SUB4 

136 


VI C ISUB)=ANS<3» 

SUB4 

137 


RHO Hi SUB ) *AN$< 4) 

SUB4 

138 


EKISUB)«ANS(5) 

SUB4 

139 


AM ISUBI»ANS<6> 

SUB4 

140 

630 

CONTINUE 

SUB4 

141 

C 


SUB4 

142 

C 


SUB 4 

143 


KICK«630 

SUB4 

144 


CALL OVCHK(KQ) 

SUB4 

145 


IF (KQ.EQ.l) GO TO 9980 

SUB4 

146 


GO TO 6600 

SUB4 

147 

c 


SUB4 

146 

c 

B I CHAR AC TER I STIC SELECTION SCHEME 

SUB4 

149 

c 


SUB4 

150 

7000 

WRITE <3.70011 

SUB4 

151 


/75 



7001 

7002 
6200 

7300 

7310 


FORMAT < 4 1 HOB I CH A RAC TERISTIC SELECTION 

SCHEME FAILEO) SUB 4 

152 

WRITE 13,614) Z0,R0 

SUB4 

153 

WRITE (3,7002) < PS I ( MNMN ) • MNMN-1 • 7 ) ,UA, 

VA,AA,UB,VB, AB,UC,VC,AC,ZZ,SUB4 

154 

10Z ,RR , OR , ANG1 , ANG2 

SUB4 

155 

SU8= l SUB 

SUB4 

156 

WRITE (3,7002) SUB , Z I ( I SUB ) ,R I ( I SUBI 

SUB4 

157 

FORMAT (4E16.8) 

SUB4 

158 

CALL EXIT 

SUB4 

159 

CONTINUE 

SUB4 

160 

IF (NBIC.NE.O) GO TO 7000 

SUB4 

161 

IF <Ll.NE.2.0R.LL(l).EQ.l) GO TO 7300 

SUB 4 

162 

LL ( l )« 1 

SUB 4 

163 

GO TO 619 

SUB4 

164 

CONTINUE 

SUB4 

165 

IF (L1.NE.3) GO TO 7310 

SU84 

166 

IF IPSII6).GT.4.2) GO TO 7310 

SUB4 

167 

PSI(6I=5. 75959 

SUB4 

166 

GO TO 619 

SUB4 

169 

CONTINUE 

SUB4 

170 

CALL OBLTRPi ZZ ,RR « ANS ) 

SUB4 

171 

UA*AN$(2) 

SUB4 

172 

VA»ANS ( 3 ) 

SUB4 

173 

AA*ANS(6) 

SUB4 

174 

ZZZ«ZZ*DZ 

SUB4 

175 

CALL OBLTRPI ZZZ,RR,ANS) 

SUB4 

176 

UB*ANS( 2 ) 

SUB4 

177 

VB=ANS( 3) 

SUB4 

178 

AB s ANS(6) 

SUB4 

179 

RRR=RR40R 

SUB4 

180 

CALL OBLTRP< ZZ,RRR,ANS) 

SUB4 

181 

UC*ANS( 2) 

SUB4 

182 

VC-ANSI3) 

SUB4 

183 

AC=ANSI6 ) 

SUB4 

184 

MM*0 

SUB4 

185 

TPSI*PSI 1 1 SUB) 

SUB4 

186 

XB »ZZ 

SUB4 

18T 


/7<r 




YB*RR 

SUB4 

188 


N0M=5 

SUB4 

189 


CA-NOM 

SUB4 

190 


00 6210 LM=1 « 2 

SUB4 

191 

6201 

OTPSI=. 01745 

SUB4 

192 


DTPSI*CA*DTPSI 

SUB4 

193 


TPSl*TPSI+DTPSI 

SUB4 

194 


A1=1.+H*(VB-VA+(A8-AAI*SIN(TPSI ) >/DZ 

SUB4 

195 


•Bl*H*( VC“VA* ( AC- A A l^SINITPSIH/DR 

SUB4 

196 


Cl=— < ZZ-ZO+H*( VA+AA*SIN ( TPS 1 1 > > 

SUB4 

197 


A2*H*(U8-UA+(AB-AA>*C0S(TPSII l/OZ 

SUB4 

198 


B2* l •♦HP ( UC-UA^C AC— A A ) *COS ( TPSI M/DR 

SUB4 

199 


C2=-( RR-R0*H*< UA-*>AA*COS < TPS I ) M 

SUB4 

200 


0ET*A1*82“A2PB1 

SUB4 

201 


OELX*( 82 *C l-Bl*C2) /DET 

SUB4 

202 


0 ELY»<Al*C 2 -A 2 *Cn /DET 

SUB4 

203 

C 


SUB4 

204 

C 

TEST FOR SAME REGION 

SUB4 

205 

C 


SUB4 

206 


XBl»XB+DELX 

SUB4 

207 


YB1-YB+DELY 

SUB4 

208 


H* COMP I XB* Y8*XB1 *YB1 ) 

SUB4 

209 


IF UM.EQ.2I GO TO 6700 

SUB4 

210 


IF (M.EQ.l) GO TO, 6203 

SUB4 

211 


GO TO 6800 

SUB4 

212 

6700 

CONTINUE 

SUB4 

213 


IF (M.NE.l) GO TO 6203 

SUB4 

214 

6600 

CONTINUE 

SUB4 

215 


mm*mm+i 

SUB4 

216 


IF (MM.LE.360/N0MI GO TO 6201 

SUB4 

217 

612 

WRITE (3*613) ITU 

SUB4 

218 

613 

FORMAT < 44H0FAI LEO TO FIND 2 POINTS IN THE SAME REGION 21H 

IN SUBRSUB4 

219 


1. NRIT2 AFTER* I4*6H TRIES) 

SUB 4 

220 


WRITE (3*614) Z0«R0 

SUB4 

221 

614 

FORMAT ( 1X5HZ0 «*E15.8*4X5HR0 «»E15.8I 

SUB4 

222 


WRITE (3*61441 LM 

SUB4 

223 


/77 




WRITE (3,6145) M 

SUB4 

224 


WRITE (3,61461 KODE 

SUB4 

225 


WRITE (3,7002) XB,YB,XB1 ,YB1 

SUB4 

226 

6144 

FORMAT ( 4H LM=,I4) 

SUB4 

227 

6145 

FORMAT ( 3H M=,14) 

SUB4 

228 

6146 

FORMAT ( 6H K00E*,I4) 

SUB4 

229 


CALL EXIT 

SUB4 

230 

6203 

GO TO (6204, 6205), LM 

SUB4 

231 

6204 

ANGl=TPSI 

SUB4 

232 


MM*0 

SUB4 

233 


GO TO 6210 

SUB4 

234 

6205 

ANG2=TP$I-DTPSl 

SUB4 

235 

6210 

CONTINUE 

SUB4 

236 


AL=LLL+1 

SUB4 

237 


00 6300 KK=1,LLL 

SU84 

238 


ISUB-LL(KK) 

SUB4 

239 


AK=KK 

SUB4 

240 


PS II ISU8)«ANG1+(ANG2-ANG1)*AK/AL 

SUB4 

241 

6300 

CONTINUE 

SUB4 

242 


NBIC-1 

SUB 4 

243 


GO TO 619 

SUB4 

244 

C 


SUB4 

245 

C 


SUB4 

246 

6400 

CONTINUE 

SUB4 

247 


IF (L1.EQ.2.0R.L1.EQ.3) GO TO 642 

SUB4 

248 


CALL NRIT2(ZIf 8) ,RI (8) , Z Z, DZ *RR , DR , EP 1 1 , EPl 2 ♦ 

FG0F5* IT11,K00E) SUB4 

249 


IF < KODE. EQ.O ) GO TO 635 

SUB4 

250 


I SUB *8 

SUB4 

251 


WRITE (3,622) I Til , I • J, I SUB, ZO , RO , ZZ, RR, Z I C 8 » 

, R 1 ( 8 ) SUB4 

252 

622 

FORMAT ( 27H0FA I LEO TO FINO Zl,RI AFTER, 14, 6H 

TRIES, 3X2HI-, 14, 3X2HJSUB4 

253 


1=» I4,3X5HISUB=,14/IX3HZ0*,E15.8,6X3HR0»,E15.8/IX3HZZ=,E15,8,6X3HRRSUB4 

254 


1»,E15.8/1X3HZI«,E15.8,6X3HRI*,E15.8/IH11 

SUB4 

255 


CALL EXIT 

SUB4 

256 

C 


SUB4 

257 

C 


SUB4 

258 

635 

CALL 08LTRP (21 ( 6 ) , R I (8) *ANS) 

SUB4 

259 




PH8)=4NSIll 

SU64 

260 


UI(8l*ANS(2) 

SUB4 

261 


V I f 8 1 “ANSI 31 

SUB4 

262 


RH0I(8I»ANS(4| 

SU84 

263 


EI(8)«ANS(5I 

SUB4 

264 


A I ( 8 l*ANS( 6) 

SUB4 

265 

c 


SUB4 

266 

642 

00 670 IL«l,LLL 

SUB4 

267 


NN=LL( IL» 

SU84 

268 


M=PART (ltZI(NN)*R[(NNI «ZX«RX* DELTA* NOEL 1 

SUB4 

269 


IF I M*EQ* l I GO TO 645 

SUB4 

270 


PURI NN 1 =0* 

SUB4 

271 


PVR(NN|*0„ 

SUB4 

272 


GO TO 648 

SUB4 

273 

645 

CALL DBLTRP(ZX*RX»ANS) 

SUB4 

274 


DEN=RX-RI(NNI 

SUB4 

27 5 


PURI NN)»(ANS(2) -UI ( NNI ) /DEN 

SU84 

276 


PVR(NN) = (AN$(3)-*VI(NNI l/DEN 

SUB4 

277 

648 

M«PART(2*ZI (NNI ,RI (NNI *ZX*RX*OELTA,NOELl 

SUB4 

278 


IF (M.EQ.ll GO TO 650 

SUB4 

279 


PUZ (NNI *0* 

SUB4 

280 


PVZ(NN|«0. 

SUB4 

281 


GO TO 655 

SUB4 

282 

650 

CALL DBLTRPI ZX*RX«ANS) 

SUB4 

283 


DEN»ZX-ZI(NN1 

SUB4 

284 


PUZ (NN)*( ANSI 2 1-UI (NNI) /DEN 

SUB4 

285 


PVZ(NN)»< ANS(3I-VI (NNII/OEN 

SUB4 

286 

655 

SINNI-SPSI (NNI**2*PUR(NNI-CPSl (NNI*SPSl (NN 1* (PVR (NN I +PUZ< NN 1 I+CPSISUB4 

287 


l(NNI**2*PVZ(NN) 

SUB4 

288 

C 


SU84 

289 


IF (ABSIRI (NNI I.GT.EPS) GO TO 660 

SU84 

290 


CON=PUR(NN) 

SUB4 

291 


GO TO 662 

SUB4 

292 

660 

CON*UI (NNl/RHNN) 

SU84 

293 

662 

SINN) »-RHO I < NN 1 *H*AI ( NN I **2* ( S ( NN 1 +CON I+PHNNl +RHO HNNI+AI (NNI ♦CPSSUB4 

294 


1I(NN)*U!(NN|+RHGI(NN)*AI (NN)*$PSI (NN|*VI (NNI 

SUB4 

295 


/7f 



670 

CONTINUE 

SUB4 

296 

1005 

CONTINUE 

SUB4 

297 

1002 

FORMAT (4E16.8) 

SUB4 

298 


KICK=670 

SUB4 

299 


CALL OVCHKIKQ) 

SUB4 

300 


IF ( KQ.EQ. 1 ) GO TO 9980 

SUB4 

301 

c 


SUB4 

302 

c 

COMPUTE NEW P,U,V 

SUB4 

303 

c 


SUB4 

304 


GO TO <690,692,695,6981 ,U 

SUB 4 

305 

690 

ouo*o« 

SUB4 

306 


U02»0. 

SUB4 

307 


V02*< $(4)-S<6» »/(RH0l(4)*AI (4 1 *SPS 1 ( 4» -RH0H6 )*A 1 1 6 ) *SP$ I< 61 ) 

SUB4 

308 


P02*S(4>-RH0I(4)*AI <4I*SPSI <4**V02 

SUB4 

309 


GO TO 700 

SUB4 

310 

c 


SUB4 

311 

c 


SUB4 

312 

692 

DP0=0. 

SUB4 

313 


P02=0. 

SUB4 

314 


1>LL<1) 

SUB4 

315 


TMPl*RHOI ( 7 1 *RHOI ( L J *AI ( 71 *AI ( LJ *( CPSI (7 )*SPSI (L )-CP$ I(L)*SPS1(7II SUB 4 

316 


V02*< S(U*RHOI (7>*AI (7I*CPSI(7>-S(7I *RHO IfLI*AI(Ll*CPSl(LH/TMPl 

SUB4 

317 


U02=(SCU-RH0I (LI4AI a)+$PSI(U*V02)/(RHOHLi*AI(Ll*CPSI(U» 

SUB4 

318 


GO TO 700 

SUB4 

319 

c 


SUB4 

320 

C 


SUB4 

321 

695 

0P0*0- 

SUB4 

322 


P02*0. 

SUB4 

323 


TMPl= : RH0H7)*RHGIf6l*AI<7)*Al(6)MCPSl<7l*SPS!(6)-SPSI(7) *CPS I 1 611 SUB 4 

324 


V02*(S(6)*RH0I <7)*AI < 7 1 *CPSI< 7 >-S ( 7 ) *RHOI < 6 1 *AI < 61 *CPS I < 6 1I/TMP1 

SUB4 

325 


U02*( S (6 1-RHOl t6l*AI(6l*SPSI(6) *V02 ) / ( RHGI (6)*AI(6 1 *CPS l ( 6 >1 

SUB4 

326 


GO TO 700 

SUB4 

327 

698 

CONTINUE 

SUB4 

328 


L*LL( 11 

SUB4 

329 


TMPI=RH0II4I*AI (4I*CPSH4l-RH0MU*AI(L»*CPSnU 

SUB4 

330 


TMP2»RH0M4I*AI(4I*$PSI (4I-RH0I <L)*AI < U*SPS I <L 1 

SUB4 

331 


/?9 



TMP3-RH0II6)*AI (6l*CPSI<6)-RH0I (L)*AI <L)*CPSitLl 
TMP4»RH01C6)*AI < 6 > *$P$I < 6) -RHO l (L l*AIILI*SPS ( ( L > 

V02= H S< 41- SI L M *TMP3-( SC 6 ) -SI L) ) *TMPl I / I THP3*TMP2-TMP1*TMP4 ) 
U02=(S(4»-SCL)-TMP2*V02) /TMPl 

P02»5C6>-RHOH6)*AI (6l*CPSI (6I*U02-RH01I6I*AI (6I*SPS1I6I*V02 
700 KICK-700 

CALL DVCHKCKO) 

IF (KQ.EQ.ll GO TO 9960 
C 

c 

C ITERATE FOR RHOO.EO 

C 

705 ITI 33-ITI 3 
IT 1 44- 1 T! 4 
KM=l 

708 CONTINUE 

CALL EQOSI CP02»PGRH0»PGE»BIGGtCHECK»KRTT *A02 tE02 tRH002 t KM» EPS I 
IF (KRTT*EQ*l) GO TO 871 
. 725 T 1-RHOO-RHOI 1 8 ) 

T2-PIC8I/RH0II8) **2 
8IGH-E IC8|4T2*T1-E0 
PHE — l. 

PHRH0-T2 
KICK-725 
CALL OVCHKI KQ) 

IF I KQ«EQ* l ) GO TO 9980 
C 

C COMPUTE NEW EO.RHOO 

C 

DOWN-PGE*PHRHO-PGRHO*PHE 
DEO-C-B IGG*PHRH0+8IGH*PGRH0) /OOWN 
DRHOO=l-BIGH*PGE*B IGG*PHEI /DOWN 
E02-E0+0E0 
RH002-RH00F0RH00 
C 

C CHECK E02 1 RH002 FOR CONVERGENCE 


SUB4 332 
SUB4 333 
SU64 334 
SUB4 335 
SUB4 336 
SUB4 337 
SUB4 338 
SUB4 339 
SUB4 340 
SUB4 341 
SUB4 342 
SUB4 343 
SUB4 344 
SUB4 345 
SUB4 346 
SUB4 347 
SUB4 348 
SUB4 349 
SUB4 350 
SUB4 351 
SUB4 352 
SUB 4 353 
SUB4 354 
SUB4 355 
SUB4 356 
SUB4 357 
SUB4 358 
SUB4 359 
SUB4 360 
SUB4 361 
SUB4 362 
SUB4 363 
SUB4 364 
SUB4 365 
SUB4 366 
SUB4 367 





c 

726 

730 

732 


735 


C 

C 

C 

740 


742 

750 

752 


K ICK* 726 

CALL DVCHKIKQI 

IF (KQ.EQ. 1) GO TO 9980 


SUB4 

SUB4 

SUB4 

SUB4 

SUB4 

SUB4 

SUB4 

SUB4 

SUB4 

SUB4 


IF < A6S(DEC/E0I.LT.EPI7) GO TO 726 
IF <ABS(DE0).GT..0H‘EPI7) GO TO 730 
IF < ABS<DRH00/RH00).LE.EPI6) GO TO 740 
IF ( ABS(DRH00).LT.EPI6) GO TO 740 
IT 133= ITI 33-1 
IF (ITI33.NE.0) GO TO 735 
WRITE <6,732) I T! 3 , I , J, ZO, RO, P0,U0, VO, RHOO, EO, P02 , U02, V02, RH002, E0SUB4 
12 SUB4 

FORMAT (33H0E0,RH00 FAILED TO CONVERGE AFTER, 14, 6H TRIES/ 1X2HI=, I4SUB4 
i,4X2HJ»,!4,4X2HZ=,E15.8,4X2HR*,E15.8/5X2HP018X2HU0l8X2HVO18X4HRH0OSUB4 
116X2HE0/5X3HP0217X3HU0217X3HV0217X5HRH00215X3HE02//<5E20.8»I SUB4 

WRITE (3,1) SUB4 

CALL EXIT SUB4 

E0=EQ2 SUB4 

RHQ0*RH002 SUB4 


K M= 0 


SUB4 


366 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 


GO TO 708 

CHECK FOR PROPER EQUATIONS 

CONTINUE 

PGE=-PGE 

PGRHO*-PGRHO 

IF (RH002.GE.RHOSTRI GO TO 750 

IF (E02.LT. EPRS1 GO TO 750 

CHECK2*0 

GO TO 752 

CHECK2*1 

A02*SQRT ( ♦PGRH0«-P02*PGE/RH002**2) 
IF (CHECK. EQ.CHECK2) GO TO 870 
ITI44»ITI44-l 
IF ( ITI44.NE.0) GO TO 770 


SUB4 388 
SUB4 389 
SUB4 390 
SUB4 391 
SUB4 392 
SUB4 393 
SUB4 394 
SUB4 395 
SUB4 396 
SUB4 397 
SUB4 398 
SUB4 399 
SUB4 400 
SUB4 401 
SU84 402 
SUB4 403 





755 


770 


C 

C 

C 

871 

870 


900 

905 


950 

9980 

9985 


WRITE (3,755) l T14 , I , J, Z0, R0, P0 , U0 , V0,RH00, E0 , AO, P02, U02 , V02 » RH002SUB4 
1,802, A02 SUB4 

FORMAT ( 38H0FA 1 LEO TO USE CORRECT EQUATIONS AFTER, 14, 6H TRIES/ IX2HSU84 
1 I» t 14,4X2HJ*,I4,4X2HZ*,E15.8,4X2HR=,E15.8/5X2HP018X2HU0l8X2HV0I8X4SUB4 
1HRH0016X2HE018X2HA0/5X3HP02 17X3HU02 1 7X3HV02 1 7X5HRH00215X3HEQ2 17X3HSU84 


1A02//(6E20.8)I 
WRITE (3,1) 

CALL EXIT 

KICK=770 

CALL OVCHK(KQ) 

IF (KQ.EQ.ll GO TO 9980 
ITI33-ITI 3 
GO TO 735 

ALL VALUES HAVE CONVERGED FOR 1 INTERIOR POINT 


KRTT-0 

XMESH2( I, J, 1I-P02 
XME SH2 ( I , J , 2 ) =U02 
XMESH2 ( I * J ,3 1 -V02 
XMESH2I I , J ,4 ) -RH002 
XMESH2(1,J,5I*E02 
XMESH2U, J*6)=A02 
KICK-900 
CALL DVCHK(KQ) 

IF (KQ.EQ.l) GO TO 9980 

CONTINUE 

CONTINUE 

IF ( ITS3.EQ.il GO TO 950 

CALL I TRP 

RETURN 

CONTINUE 

WRITE (3,99851 KICK 
WRITE (3,6141 Z0,RC 
FORMAT ( 32H00I VIDE CHECK 
11H1) 


NEAR STATEMENT N0.,I5,15H IN SUBR. 


SUB4 
SUB4 
SUB4 
SUB4 
SUB4 
SUB4 
SUB4 
SUB4 
SUB4 
SUB4 
SUB4 
SU84 
SUB4 
SUB4 
SUB4 
SUB4 
SUB4 
SUB4 
SUB4 
SUB4 
SUB4 
SUB4 
SUB4 
SUB4 
SUB4 
SUB4 
SUB4 
SUB 4 
SUB4 
INTER/SU84 
SUB4 


404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 
42 7 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 





o o o n on 


CALL EXIT SUB4 440 

RETURN SUB4 441 


END SUB4 442 

SUBROUTINE EOOSK PRHO, PPP , PVV, PEE , TEE, TRHO, K ICK ) SUB 5 1 

COMMON CASE I D( 14 ) , I TSl , I TS2 , I T S3, 1 TS4, IT 1 1 , I T 1 2, IT I 3, IT 14, EPS1,EPSSUB5 2 
12,EPS3,EPS4,EPS5,EPS6,EPII,EPI2,EPI3,EPI4,EPI5,EPI6,EP17,VP,AR,LENSUB5 3 
1GTH,APR,BPR,BIGAPR,BIGBPR»E$TAR, ALPHA, BETA, RHOSTR , EPRS, RHQS SUBS 4 


COMMON XME SH( 20. 20,6 ) ,XMESH2( 20, 20,6) ,2120), R< 20) , SURF ( 15,81 ,SURF2SUB5 
l< 15,8) ,TAB< 15,14,2) ?TAB2(15,14,2) , SPART (15,2,2), RARF I15,11),RARF2(SUB5 


115,4I,RPART(15,2) SUB5 

SUBS 
SUB 5 

COMMON 20,RO,PO,UO,VO,LO,MO,RHOO,EO,AO.UBARO,VBARO SUB 5 

SUBS 

COMMON NP,NT,NR*NI,NDEL,ISUB SUBS 

SUBS 

COMMON ZMIN,ZMAX,RMIN,RMAX,RADIUS,GZ,GR,DELTA,H SUB5 

COMMON OIRCOS SUB5 

COMMON TIME SUBS 

COMMON IRARF SUB5 

COMMON KSTOP SUB5 

COMMON TPSI SUBS 

COMMON KKK SUB 5 

SUB5 

SUBS 

REAL LO, MO, LENGTH, MU, KO SUBS 

RHO=RHOSTR SUB5 

E»VP**2/8. SUBS 

00 100 M=1 , 100 SUB5 

ETA=R HO /RHOSTR SUBS 

MU*ETA-1. SUB5 

G*-RH0STR*(VP/2. )**2+( ( APR+BPR/ I E/ I £STAR*ET A**2 ) +1 . I ) *£*RH0+B 1 GAPR SUB5 
l*MU+B 1GBPR*MU**2 ) * I l .-RHQSTR/RHOI SUB5 


08 R I VG*< I APR*BPR/4 E/ 1 ESTAR*ETA**2 I + 1 • I I *E+B I GAPR /RHOSTR +2 . *BIGBPR*SUB5 
IMU/RH0STR+2. *E**2*BPR/ ( ESTAR*ETA**2* (E/I EST AR*ETA**2 1 ♦1.1**2I)*(1. SUB5 
l-RHOSTR/RHQ )♦(< APR+BPR/IE/(ESTAR*ETA**2I +1.1 )*E*RH0+B1GAPR*MU+B IGBSUB5 


5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 




u o 



1PR*MU**2)*RH0STR/RHQ**2 

SUB5 

34 


DLTRH0*-G/0ER1VG 

SUB5 

35 


RHO=RHO+DLTRHO 

SUB5 

36 


IFIABSIOLTRHOI .LT. l.E-07) GO TO 101 

SUB5 

37 

c 

IF ( ABS( DLTRHO J .LT* l.E-06) GO TO 101 

SUB5 

38 

100 

CONTINUE 

SUB5 

39 


KICK=2200 

SUBS 

40 


GO TO 9980 

SUB5 

41 

101 

CONTINUE 

SUB5 

42 


PRHO-RHO 

SUBS 

43 


TRHO-RHO 

SUB5 

44 


PEE-E 

SUB5 

45 


TEE = £ 

SUB5 

46 


PVV=VP/2. 

SUBS 

47 


PPP=( APR^BPR/IE/(ESTAR*ETA**2l+li II*E*RH0+BIGAPR*MU+BIGBPR*MU**2 

SUBS 

48 

9980 

RETURN 

SUBS 

49 


END 

SUBS 

50 


SUBROUTINE EQ0S2 < PPP , PRHO, PEE I 

SUB6 

1 


COMMON CASE1D114), ITS 1 , 1 TS2, I TS3 , I TS4, IT II. I T! 2, I T ! 3, I T 1 4, EPS I, EPSSUB6 2 
12»EPS3,EPS4,EPS5,EPS6»EPII»EP12»EPI3»EPI4,EPI5»EPI6»EPI7,VP,AR»L£NSUB6 3 
IGTH,APR,BPR»BIGAPR»BIGBPR»ESTAR» ALPHA. BET A, RHOSTR, EPRS » RHOS SUB6 4 
COMMON XME SHI20.20.6) .XMESH2 ( 20 . 20 .6 > » Z< 20 I ♦ R C 20 ) « SURF < 1 5. 8 1 • SURF2SUB 6 5 
U 15.81 .TAB! 15. 14,2 ) * TAB2 ( 15. 14.2 ) .SPART ( 15. 2 ,2 1 . RARE <15, 11 > • RARF2 C SUB6 6 


115,41,1 

RPARTI 15,2) - 

SUB6 

7 



SUB6 

8 



SUB6 

9 

COMMON 

ZO.RO.PO.UO.VO.LO.MO.RHOO.EO, AO.UBARO, VBARO 

SUB6 

10 



SUB6 

11 

COMMON 

NP.NT.NR.NI, NOEL • I SUB 

SUB6 

12 



SUB6 

13 

COMMON 

ZMI N, ZMAX, RMI N.RM AX, RADIUS, GZ.GR.D EL TA.H 

SUB6 

14 

COMMON 

DIRCOS 

SUB6 

15 

COMMON 

TIME 

SUB6 

16 

COMMON 

IRARF 

SUB6 

17 

COMMON 

KSTOP 

SUB6 

18 



SUB6 

19 


/ry 



o o 


COMMON TPS! 

SUB6 

20 

COMMON KKK 

SUB6 

21 


SUB6 

22 

REAL LO, MO, LENGTH, MU, KO 

SUB6 

23 

P*PPP 

SUB6 

24 

RHO=PRHO 

SUB6 

25 

E=PEE 

SUB6 

26 

ETA*RHO/RHOSTR 

SUB6 

27 

MU*ETA-1. 

SUB6 

28 

EE«E/(ESTAR*ETA**2H-1. 

SUB6 

29 

PGRHO=E*( APR+BPR/EEI *B IGAPR/RHGSTR+ ( 2 • *BIGBPR*MU 1 /RHOSTR+( 2. 

*E**2*$UB6 

30 

1BPR \ /(ESTAR*£TA**2*EE**2 l 

SUB6 

31 

PGE=<APR+BPR/EE)*RH0-<E*BPR*RH0)/«ESTAR*ETA4*2*EE**2) 

SUB6 

32 

AR«SQRT(PGRH0+PGE*P/RH0**2> 

SUB6 

33 

RETURN 

SUB6 

34 

END 

SUB6 

35 

SUBROUTINE EQ0S3(RH0,AA,E , P) 

SUB7 

l 


COMMON CASEIO(l4>, ITS1, I TS2, I TS3, 1 TS4, ITU, ITI2,ITI3, IT 1 4, EPS1 , EPSSUB7 2 
12,EPS3,EPS4,EPS5,EPS6,EPI1,EP12,EPI3,EPI4,EPI5,EPI6,EPI7,VP,AR,LEN$UB7 3 
IGTH, APR, BPR,BIGAPR, BIGBPR, ESTAR , ALPHA, BETA, RHOSTR, EPRSi RHOS SUB7 4 
COMMON XMESH(20*20,6l , XMESH24 20 , 20 ,6 ) , ZI 201 ,R ( 20 I , SURF( 1 5, 8 I , SURF2SUB7 5 
K 15,8 >, TAB ( 15, 14,2) , TAB 2(15,14, 2) , SPART (15,2,2)*RARF(15»11I*RARF2(SUB7 6 


15,4),RPART(15,2I 

SUB7 

7 



SUB7 

8 



SUB7 

9 

COMMON 

Z0» RO*PO*UO *VO»LO* HO*RHOO * EO, AO»U8ARO»V8ARO 

SUB7 

10 



SUB7 

11 

COMMON 

NP,NT,NR,NI ,NOEL» I SUB 

SUB7 

12 



SUB 7 

13 

COMMON 

ZMI N,ZMAX,RMIN,RHAX, RADIUS, GZ.GR, DELTA, H 

SUB7 

14 

COMMON 

OIRCOS 

SUB7 

15 

COMMON 

TIME 

SUB7 

16 

COMMON 

IRARF 

SUB7 

17 

COMMON 

KSTOP 

SUB7 

18 

COMMON 

TPS I 

SUB7 

19 

COMMON 

KKK 

SUB7 

20 




n o 


70 


72 


74 


75 


C 



SUB7 

21 


SUB7 

22 

REAL LO, MO, LENGTH, MU, KO 

SUB7 

23 

ETA»RHO/RHOSTR 

SUB7 

24 

MU=E TA- 1 . 

SUB7 

25 

EE»E/(ESTAR*ETA**2I+1. 

SUB7 

26 

IF (RHO.GT.RHOSTRI GO TO 72 

SUB7 

27 

IF (E.GE.EPRSI GO TO 74 

SUB7 

26 

PGRHO-E*! APR*BPR/EE!+BIGAPR/RH0STRM2.*BIGBPR*HU)/RH0STR-M2. 

*E**2*SUB7 

29 

LBPR ) /< ESTAR*ETA**2 *EE**2 1 

SUB7 

30 

PGE® ( APR+BPR/EE ) *RHO-(E*BPR*RHQ ! /I ESTAR*ETA**2*EE**2 » 

SUB7 

31 

GO TO 75 

SUB7 

32 

Cl-RHOSTR/RHO-l. 

SUB7 

33 

C2»EXP<-BETA*C1! 

SUB7 

34 

C3«EXP<-ALPHA*Cl**2) 

SUB7 

35 

Tl*(8PR*E*RH0) /EE+BIGAPR*MU*C2 

SUB 7 

36 

T2»2. *ALPHA*Cl*( RHOSTR/ <RH0**2 I ! 

SUB7 

37 

T3*BPR*£/EE 

SUB7 

38 

T4® 1 2**E ! /IESTAR4ETA**2*EE ) 

SUB 7 

39 

T4«T3*T4 

SUB7 

40 

T5* I BIGAPR*C2J /RHOSTR 

SUB7 

41 

T6»(BIGAPR*MU*BETA*RH0STR*C2!/(RH0**2) 

SUB7 

42 

PGRH0-APR*E*C3*( Tl*T2*T3*T4*T5+T6) 

SUB7 

43 

T7»(BPR*RH0!/EE .. 

SUB7 

44 

PGE*APR*RH0+C3*C T7-T7*(E/(ESTAR*ETA**2*EE 1 1 J 

SUB7 

45 

AA»SQRT(PGRH0«-PGE*P/RH0**2 ! 

SUB7 

46 

RETURN 

SUB7 

47 

END 

SUB7 

48 

SUBROUTINE EOOSS(PFR,PFE» 

SUBS 

l 


COMMON CASEIDC14I, ITSi,!TS2,ITS3,ITS4, ITIi, IT12, ITI3, IT 14* EPSl » EPSSU88 2 
12,EPS3,EPS4,EPS5,EPS6,EPIl *EPI 2 * EPI 3* 6PI4* EP 15, EPI6, EP 1 7, VP, AH* LENSUB8 3 
1GTH, APR »8PR ,81 GAPR ,BI GBPR, EST AR , ALPHA, BET A, RHOSTR* EPRS, RHOS SUB8 4 
COMMON XMESHI 20,20,6) , XMESH2I 20, 20, 61, Z( 20 1, R( 20 1, SURF< 15,81 ,SURF2SU88 5 
II 15,81 ,TAB< 15,14,21 , TAB2 (15,14,21 ,SPART( 15,2,2), RARF< 15,111, RARF24 SUBS 6 
115,4! ,RPART< 15,2 J SUB8 7 

SUB 8 6 




o o 


c 

c 

c 


250 

C 

C 


C 

c 


SUBS 

COMMON ZO# RO# PO# U0» VO# 10# MO#RHOQ* EO# AO# JBARO# VBARO SUBS 

SUBS 

COMMON NP»NT»NR*NI «NOEL* I SUB SUBS 

SUBS 

COMMON ZMINtZMAX,RMIN«RMAX*RADIUS«GZ*GR*DELTA*H SUBS 

COMMON DIRCOS SUBS 

COMMON TIME SUBS 

COMMON I RARE SUBS 

COMMON KSTOP SUBS 

COMMON TPSI SUBS 

COMMON KKK SUBS 

SUBS 

SUB8 

REAL LO* MO* LENGTH, MU »K0 SUBS 

ETA-RHOO/RHOSTR SUBS 

MU*ETA“l • SUBS 

SUBS 

SUB8 

EPP®E0/(E$TAR*ETAP*2)*1» SU88 

TMP-APR+BPR/EPP SUB8 

TMPl-BPR/I ESTAR*ETAP*2*EPP**2I SUB8 

PFR*TMP*F0+IBIGAPR+2,*BIGBPR*MUI/RH0STR+2.*E0**2*TMP1 SUBS 

PFE“TMP*RHOO-EO*RHOOPTMPl SUBS 

RETURN SUB8 

ENO SUBS 

SUBROUTINE EQOSP(RH002,E02,P02) SUB9 

COMMON CA$EID(14),ITS1,ITS2,ITS3,!TS4,ITII, IT12.ITI3, IT 14, EPS1, EPSSU89 
12,EPS3*EPS4*EPS5*EPS6*EPII»EPI2*EPI3#EPI4*EPI5*EPI6* EP IT* VP, AR» LENSUB9 
IGTH, APR *BPR»BI GAPR, B IGBPR* ESTAR * ALPHA, BETA, RHOSTR, EPRS, RHOS SUB9 

COMMON XME SHI 20,20,6) , XMESH2 ( 20 , 20 ,6 1 , Z I 20l ,R( 20 ) , SURFU5 ,81 , SURF2SUB9 
1(15*8) ,TAB< 15*14*2) *TAB2 (15* 14*2 ) , SPARTI 15, 2 , 2 ) * RARF ( 15* 111 * RARF2( SUB9 
115*4) ,RPART( 15*2) SUB9 

SUB9 

SUB9 

COMMON ZO*RO*PO,UO,VO*LO,MO,RHOO*EO,AO»UBARO,VBARO SU89 


9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 





o u o u 


c 

c 




SUB9 

II 

COMMON 

NP*NT*NR»NI , NOEL, I SUB 

SUB9 

12 



SUB9 

13 

COMMON 

zmin*zmax,rmin,rmax,raoius,gz,gr,oelta,h 

SUB9 

14 

COMMON 

DIRCOS 

SUB9 

15 

COMMON 

TIME 

SUB9 

16 

COMMON 

I RARE 

SUB9 

17 

COMMON 

KSTOP 

SUB9 

18 

COMMON 

TPS! 

SUB9 

19 

COMMON 

KKK 

SUB9 

20 



SUB9 

21 



SUB9 

22 

REAL LO » MO* LENGTH* MU* KO 

SUB9 

23 

ETA=RH002/RH0STR 

SUB9 

24 

MU«6TA“ 

-1. 

SUB9 

25 

P02»E02*RH002*( APR* ( BPR*E$TAR*ETA**2 1 / I E02«-ESTAR*ET A**2 1 1 +8 1 GAPR*MSUB9 

26 

IU+B IGBPR*MU**2 

SUB9 

27 

RETURN 


SUB9 

28 

END 


SUB9 

29 


> LENSU10 


C 

C 


COMMON ZO,RO, 


),P0*U0*V0,L0,M0,RH00,E0»A0,U8AR0»VBAR0 
COMMON NP*NT*NR*N! *NDEL* I SUB 

COMMON ZMIN,ZMAX,RMIN,RMAX,RAOIUS,GZ,GR, DELTA# M 
COMMON OIRCOS 
TIME 


COMMON 



o o 


708 


715 


716 

717 


COMMON 1RARF 

SU10 

18 

COMMON KSTCP 

SU10 

19 

COMMON TPS I 

SU10 

20 

COMMON KKK 

SU10 

21 


SU10 

22 


SU10 

23 

REAL L 0 » MO » L E NG TH , MU , KO 

SU10 

24 

INTEGER CHECK, CHECK2 

SUIO 

25 

IF < KM.EQ. 0) GO TO 708 

SU10 

26 

RHOO-RHOSTR 

SUIO 

27 

TMP1»( APR+0PRI *RH0STR-P02/E$TAR 

SUIO 

28 

TMP2«SQRT<TMP1**2+4.*P02*APR*RH0STR/ESTARI 

SUIO 

29 

E0=I”*TMP1*TMP2 ) / C 2 • *APR*RHO$TR/ESTAR ) 

SUIO 

30 

IF (P02.GT.EPS) GO TO 708 

SUIO 

31 

P02-0. 

SUIO 

32 

E02*0. 

SUIO 

33 

RH002-RH0STR 

SUIO 

34 

A02*SQRT(BIGAPR/RH0STR) 

SUIO 

35 

KRTT*1 

SUIO 

36 

GO TO 870 

SUIO 

37 

KRTT-0 

SUIO 

38 

ETA*RHOO/RHOSTR 

SUIO 

39 

MU=ETA-1. 

SUIO 

40 

EE=E0/(ESTAR*ETA**2 1+1# 

SUIO 

41 

IF (RHOO.GT.RHOSTR) GO TO 720 

SUIO 

42 

IF <EO.LT.EPRS> GO TO 720 

SUIO 

43 

C 1*RH0STR/RH00-1. 

SUIO 

44 

8EC1»8ETA*C1 

SUIO 

45 

IF (BECl.LT. 10. E10> GO TO 716 

SUIO 

46 

C2*0.0 

SUIO 

47 

GO TO 717 

SUIO 

48 

C2»EXP<-BECi> 

SUIO 

49 

C3AL*ALPHA*C 1**2 

SUIO 

50 

IF (C3AL.LT. 10.E12) GO TO 718 

SUIO 

51 

C3=0.0 

SUIO 

52 

GO TO 719 

SUIO 

53 



o o o 


718 

719 


720 


725 

870 


C3-EXPC-C3AL) 

SU10 

54 

CONTINUE 

SU10 

55 

T1«IBPR*EO*RHOO)/EE+BIGAPR*MU*C2 

SU10 

56 

T2«2. *AI»PHA4C1*( RHOSTR/ I RH00**2 ) ) 

SU10 

57 

T3*BPR*E0/EE 

SU10 

58 

T4«(2,.*E0I/<ESTAR*ETA**2*EE) 

SU10 

59 

T4«T3*T4 

SU10 

60 

T5«(BIGAPR*C21 /RHOSTR 

SU10 

61 

T6-(BIGAPR*MU*BETA*RHGSTR*C2) / (RH00**2 ) 

SU10 

62 

T7-IBPR4RH00I/EE 

SU10 

63 

PGRH0»APR*E0*C3*<T1*T2*T3*T44T5«-T6) 

SU10 

64 

PGE«APR*RHOO«-C3*IT7-T7*<EO/IESTAR*ETA**2*EE» I) 

SU10 

65 

BIGG-P02-APR*E04RH00-Ti*C3 

SUIO 

66 

CHECK-0 

SUIO 

67 

GO TO 725 

SUIO 

68 

Tl-APR+BPR/EE 

SUIO 

69 

T2-1 8PR4E0) /< E$TAR*ETA**2*EE**2 ) 

SUIO 

70 

BlGG*P02-Tt*E0*RH00-6iGAPR*MU-BIGBPR*MU**2 

SUIO 

71 

PGRH0-T1*E0*BIGAPR/RH0STR42« *BIGBPR*MU/RHO$TR«-T 2*2.*E0 

SUIO 

72 

PGRHO— PGRHO 

SUIO 

73 

PGE-T1 *RHOO-RHOO*T 2 

SUIO 

74 

PGE— PGE 

SUIO 

75 

CHECK-! 

SUIO 

76 

CONTINUE 

SUIO 

77 

CONTINUE 

SUIO 

78 

RETURN 

SUIO 

79 

ENO 

SUIO 

80 

SUBROUTINE S0UT2 

SUll 

1 


SUll 

2 

PRINTS 6 LINES OF DISCONTINUITY AT TO 

SUll 

3 


SUll 

4 


COMMON CASE! 0( 1*1*1 TS1 , l TS2, I T$3» I TS4, IT II, I TI2, IT 13, ITU, EPS1, EPSSUl 1 5 
12,EP$3,EP$4,EPS5,EPS6,EPI1,EPI2,EPI3,EPI4,EPI5,EPI6,EPI7,VP»AR,LENSU11 6 
1GTH, APR, BPR,BIGAPR»BIGBPR»ESTAR, ALPHA, BETA, RHOSTR,EPRS,RHOS SUll 7 
COMMON XME SHI 20*20*6) ,XMESH2< 20, 20,6 » ,21201 , R< 20 1 , SURE 1 1 5, 8 * , SURF2SU11 8 
II 15,81 *TAB< 15,14,2) , TA62 (15,14,2) , SPART < 1 5 , 2 ,2 ) , RARE ( 15, 11 ) , RARE2I SUll 9 





115*41,1 

RPARTC 15, 2) 

SUll 

10 

c 



sun 

n 

c 



sun 

12 


COMMON 

Z0« RO,PO ,U0 , VO, LO,MO,RHOO, EO, AO,UBARO , VBARO 

sun 

13 

c 



sun 

14 


COMMON 

NP, NT, NR, NI .NOEL, I SUB 

sun 

15 

c 



sun 

16 


COMMON 

ZMI N,ZMAX,RMIN,RMAX, RADI US, GZ.GR, DELTA, H 

sun 

17 


COMMON 

OIRCOS 

sun 

18 


COMMON 

TIME 

sun 

19 


COMMON 

IRARF 

sun 

20 


COMMON 

KSTOP 

sun 

21 


COMMON 

TPSI 

sun 

22 


COMMON 

KKK 

sun 

23 


REAL LO»HO»LENGTH*MU*KO 

sun 

24 

c 



sun 

25 

4 

FORMAT 

<///30H CURVES OF DISCONTINUITY AT T0//40X20H— PROJECTILE 

ssun 

26 


1 MOCK- 

//I 

sun 

27 

6 

FORMAT 

C//35X29H— PROJECTILE PARTICLE CURVE— //I 

sun 

28 

8 

FORMAT 

I //42X16H— TARGET SHOCK— //I 

sun 

29 

10 

FORMAT 

< //38X25H— TARGET PARTICLE CURVE—//) 

sun 

30 

12 

FORMAT 

< //42X15H— RAREFACTION— //) 

sun 

31 

14 

FORMAT 

I //35X30H— RAREFACTION PARTICLE CURVE— //I 

sun 

32 

16 

FORMAT 

< 7X IHZ19X 1HR 19X1 HP 19X1 HU19X IHV/7X3HRH017X IHE19X1HA19X1 HL 19XSU11 

33 


UHH//J 


sun 

34 

18 

FORMAT 

I7XIHZ19X1HR//* 

sun 

35 

20 

FORMAT 

I7X1HZ19X1HR19X1HL19X1HM//I 

sun 

36 

30 

FORMAT 

< 5E20.8/5E20.8//) 

sun 

37 

35 

FORMAT 

(2E20.8) 

sun 

38 

38 

FORMAT 

<4620. 8) 

sun 

39 

39 

FORMAT 

T//35X16H— FREE SURFACE—//) 

sun 

40 

40 

FORMAT 

UH1I 

SUll 

41 


WRITE 

13,41 

sun 

42 


WRITE 

13,16) 

sun 

43 


WRITE 

(3,30) I ( TAB2 ( I , J, 1) ,4*1,101 ,1-1 ,NP) 

SUll 

44 


WRITE 

<3,61 

sun 

45 




o o o 


c 

c 

c 

c 


WRITE 

(3,18) 


sun 

46 

WRITE 

(3,35) 

((SPART(I,J,l),J*l,2l,I*l,NP) 

sun 

47 

WRITE 

(3,8) 


sun 

48 

WRITE 

(3,16) 


sun 

49 

WRITE 

(3,30) 

I ( TAB2( I « J,2) , J*1 , 10 ) , 1*1 ,NT ) 

sun 

50 

WRITE 

(3,10) 


sun 

51 

WRITE 

(3,18) 


sun 

52 

WRITE 

(3,35) 

( (SPARK !,J,2),J*1,2),I-1,NT) 

sun 

53 

WRITE 

(3,12) 


sun 

54 

WRITE 

(3,201 


sun 

55 

WRITE 

(3,38) 

( <RARF2(1,J), J«l,4) ,1-1, NR) 

sun 

56 

WRITE 

(3,14) 


sun 

57 

WRITE 

(3,39) 


sun 

58 

WRITE 

(3,35) 

( (SURF2(I,J),J*1,2) ,I*1,NP) 

sun 

59 

WRITE 

(3,40) 


sun 

60 

RETURN 


sun 

61 

ENO 



sun 

62 

SUBROUTINE SOUT 

SU12 

1 




SU12 

2 

PRINTS 4 LINES OF DISCONTINUITY AT TO-H 

SU12 

3 




SU12 

4 


COMMON CASEI0(14)*ITS1*ITS2»ITS3»IT$4,ITI1* IT 12, IT 1 3. IT 1 4, EPS1, EPSSU12 
12*EPS3,EPS4»EPS5»EPS6»EPI1»EPI2,EPI3*EPI4,EPI5»EPI6»EP!7»VP*AR*LENSU12 
IGTH, APR, BPR,BIGAP&,BIGBPR*ESTAR, ALPHA, BETA, RHOSTR, EPRS, RHOS SUI2 

COMMON XMESH(20.20,6> ,XMESH2( 20*20 ,6) , Z( 201 ,R< 20 ) , SURF ( 15, 8) , SURF2SU12 
1115,0) ,TAB< 15,14,2) *TAB2 (15,14,2) ,SPART (15,2,2), RARF (15,11) » RARF 21 SU12 
115,4) »RPART( 15,2) 

COMMON ZO,RO,PO,UO,VO,LO,MO,RHOO,EO,AO,UBARO,VBARO 
COMMON NP*NT ,NR,N1 «NOEL, ISU6 

COMMON ZMI N,ZMAX,RMI N»RMAX,RA0IUS»GZ,GR* DELT A,H 
COMMON OIRCOS 
COMMON TIME 


5 

6 

7 

8 
9 


SU12 

10 

SU12 

n 

SU12 

12 

SU12 

13 

SU12 

14 

SU12 

15 

SU12 

16 

SU12 

17 

SU12 

18 

SU12 

19 






COMMON IRARF 

SU12 

20 


COMMON KSTOP 

SU12 

21 


COMMON TPS! 

SU12 

22 


COMMON KKK 

SU12 

23 


REAL LO ? MO* LENGTH* MU »K0 

SU12 

24 

c 


SU12 

25 

4 

FORMAT I///32H CURVES OF DISCONTINUITY AT T0-H//40X20H — PROJ6CT1LESU12 

26 


1 SHOCK— //I 

SU12 

27 

6 

FORMAT (//42X16H — TARGET SHOCK—//) 

SU12 

26 

8 

FORMAT ( //42X15H— RAREFACTION— //) 

SU12 

29 

10 

FORMAT ( 7X1HZ19X1HR19X1HP19X1HU19X1HV/7X3HRH017X 1HE19X1HA19X1HL 19XSU12 

30 


11HM//) 

SU12 

31 

15 

FORMAT (5E20.8/5E20.8//) 

SU12 

32 

18 

FORMAT <1H1) 

SU12 

33 

21 

FORMAT I//35X16H— FREE SURFACE—//) 

SU12 

34 

25 

FORMAT (2E20.8) 

SU12 

35 


WRITE <3, 4) 

SU12 

36 


WRITE (3*10) 

SU12 

37 


WRITE (3,15) <(TAB<I,J,1),J*1»10),I«1,NP) 

SU12 

38 


WRITE (3,6) 

SU12 

39 


WRITE (3,10) 

SU12 

40 


WRITE (3,15) ((TA8( I , J»2 > , J-l , 10 > , 1-1 , NT ) 

SU12 

41 


WRITE (3,8) 

SU12 

42 


WRITE (3,10) 

SU12 

43 


WRITE <3,151 <<RARF<I,J),J»1,10),I-1,NR) 

SU12 

44 


WRITE (3,21) 

SU12 

45 


WRITE (3,251 ( (SURF(I,J),J*1,Z),I>1,NP) 

SU12 

46 


WRITE (3,18) 

SU12 

47 


RETURN 

SU12 

48 


END 

SU12 

49 


SUBROUTINE PR1NT(8L,ZTAB,RTAB,KK) 

SU13 

1 

C 

PRINTS INTERIOR REGION 

SU13 

2 

C 


SU13 

3 


COMMON CASEI0(14),ITS1,ITS2,1TS3,ITS4,ITI1, IT 12, IT 13, ITI4.EPS1, 

EPSSU13 

4 


12,EPS3,EPS4,EPS5,EPS6,EP!1,EPI2,EPI3,EPI4,EPI5,EPI6,EPI7,VP,AR, 

LENSU13 

5 


IGTH, APR,BPR,BIGAPR,BIGBPR,ESTAR, ALPHA, BETA, RHOSTR, EPRS, RHOS 

SU13 

6 


/#3 





COMMON XME SH (20*20*6) , XMESH2 < 20,20 ,6 I , 2 (20 1 , R < 20 I , SURF < 15* 8) , SURF2SU13 7 
1< 15,8) ,TABC 15*14,2) , TAB2 (15, 14,2 I ,SPART<15, 2,2) ,RARF< 15, lit, RARF2I SU13 8 



115,41 ,RPART( 15,21 


SU13 

9 

c 



SU13 

10 

c 



SU13 

11 


COMMON ZO,RO.PO,UO,VO,LO,MO,RHOO,EO,AO,UBARO,VBARO 


SU13 

12 

c 



SU13 

13 


COMMON NP,NT,NR,NI «NOEL«ISUB 


SU1 3 

14 

c 



SU13 

15 


COMMON ZMIN, ZMAX,RMIN,RMAX,RADIUS,GZ«GR*DELT A,H 


SU13 

16 


COMMON DIRCOS 


SU13 

17 


COMMON TIME 


SU13 

18 


COMMON I RARE 


SUl 3 

19 


COMMON KSTOP 


SU13 

20 


COMMON TPSI 


SU13 

21 


COMMON KKK 


SUl 3 

22 


REAL LO, MO, LENGTH, MU, KO 


SU13 

23 

c 



SUl 3 

24 


DIMENSION BL(20,20,6),ZTAB(20>,RTAB<20I 


SU13 

25 

c 



SUl 3 

26 


00 15 1*1,20 


SU13 

27 


00 15 J*1 « 20 


SU13 

28 


IF C ABSIBLf I,J,1I t*ABS(BL< I, J,2) >+ABS(BL( I, J,3II) 

20,15,20 

SU13 

29 

15 

CONTINUE 


SU13 

30 


WRITE <3, 16) 


SU13 

31 

16 

FORMAT C15HITABLES ALL = 0/IH1J 


SU13 

32 


CALL EXIT 


SU13 

33 

20 

Il-I 


SU 1 3 

34 


DO 30 1*11,20 


SU13 

35 


IF (ABS(BLU,1,L)H-ABS(BU 1,1,2) I +ABS( BL< 1, 1,31)1 

30,22,30 

SUl 3 

36 

22 

DO 25 J*l,20 


SU13 

37 


IF (A8SIBLU • J, 1 1 1 +A8S( BL< I « J«2 ) t + ABS ( BL ( I , J , 3 t ) ) 

30,25,30 

SU13 

38 

25 

CONTINUE 


SU13 

39 


12*1-1 


SU13 

40 


GO TO 35 


SU13 

41 

30 

CONTINUE 


SUl 3 

42 





12=20 

SUI3 

43 

35 

00 45 J=1 • 20 

SU13 

44 


IF (ABS(8L(U,J,lt)*ABS(BL(Il,.J,2n+ABS(BL( II, J.3UI 45,37.45 

SUl 3 

45 

37 

00 40 I«Il,t2 

SUI3 

46 


IF (A8S(BL( I*J*1)I+ABS(BL(I,J»2)I+ABS(BL< I,J,3II) 45,40,45 

SUI 3 

47 

40 

CONTINUE 

SU13 

48 


J2=J-1 

SU13 

49 


GO TO 50 

SUI3 

50 

45 

CONTINUE 

SU13 

51 


J2-20 

SUI3 

52 

50 

Jl*l 

SUl 3 

53 

C 


SU13 

54 

c 

PRINT TABLE 

SU13 

55 

c 


SU13 

56 


GO TO (52,56) ,KK 

SU13 

57 

52 

WRITE (3,53) 

SU13 

58 

53 

FORMAT; ( //24H0I NTER I OR REGION AT T0-H///1 

SUl 3 

59 


GO TO 62 

SU13 

60 

56 

WRITE (3,57) 

SU13 

61 

57 

FORMAT ( //22H0INTERI0R REGION AT TO///) 

SU13 

62 

62 

DO 70 i=t 1 » 1 2 

SU13 

63 


WRITE (3,64) ZTAB( I ) 

SU13 

64 

64 

FORMAT ( ///7H0ZTAB =,F 10.4//7X1HR9X1HP17X1HU17X1HV 17X3HRH015X 1HE 17SU13 

65 


IXlHA// 1 

SU13 

66 


00 69 J«J1,J2 

SU13 

67 


WRITE (3,68) RTAB( J) ,(8L( I ,J,K),K=l,6) 

SU13 

68 

66 

FORMAT ( F12.4, 6E18» 8) 

SU13 

69 

69 

CONTINUE 

SU13 

70 

70 

CONTINUE 

SUl 3 

71 

60 

WRITE (3,82) 

SU13 

72 

62 

FORMAT (1HI) 

SU13 

73 


RETURN 

SU13 

74 


END 

SU13 

75 


SUBROUTINE NR I T2 ( X, Y, XO,OX , YO, 0Y*EX »EY* FGOF , IT ,XOD£) 

SU14 

1 

C 


SU14 

2 

C 

NEWTON-RAPHSON METHOO FOR SOLUTION OF 

SU14 

3 


/95 



o o 


c 

c 


c 

c 


c 


1 


c 


TWO NON UNEAR EQUATIONS IN TWO UNKNOWNS SU14 4 

SU14 5 

COMMON CASElDU4»*lT$i,lT$2,ITS3,ITS4, ITI1, ITI2,ITI3,IT14,EP$1,EPSSU14 6 
i2*EPS3*EPS4»EPS5*EPS6*EPIi*EPI2»EPI3*EPI4*EPI5»EPI6*EPI7*VP*AR»LENSU14 7 
1GTH, APR* BPR*BIG APR *BIGBPR* ESTAR* ALPHA* 6ETA»RH0STR, EPRStRHOS SU14 6 

COMMON XME SHI 20* 20* 6 1 « XMESH21 20* 20*6 I *ZI20I*R(20)* SURF! 15*8) *SURF2SU14 9 


1( 15* 8) * TA8( 15* 14* 2 )« TA62 < 15* 14*2 ) » SPART <15*2*21* RARE (15* 

11 1 *RARF2I SU14 

10 

115, 4|, RP ART! 15, 2) 

SU14 

11 


SU14 

12 


SU14 

13 

COMMON Z 0 , RO * PO , UO » VO * LO « MO , RHOO , EO * AO * U B ARO » V B ARO 

SU14 

14 


SU14 

15 

COMMON NP*NT,NR*NI «NDEL« I SUB 

SU14 

16 


SU14 

17 

COMMON ZMI N*ZMAX*RMIN*RMAX*RAOlUS»GZ*GR* OELT A*H 

SU14 

18 

COMMON DIRCOS 

SU14 

19 

COMMON TIME 

SU14 

20 

COMMON I RARE 

SU14 

21 

COMMON KSTOP 

SU14 

22 

COMMON TPSI 

SU14 

23 

COMMON KKK 

SU14 

24 

REAL L 0 , MO , LENG TH * MU , KO 

SU14 

25 


SU14 

26 

XB-XO 

SU14 

27 

YB-YO 

SU14 

28 

DXX-DX 

SU14 

29 

OYY-OY 

SU14 

30 

0ELX1-0 

SU14 

31 

OELYl«0 

SU14 

32 

K0DE.«0 

SU14 

33 

CONTINUE 

SU14 

34 

DO 50 I«l* IT 

SU14 

35 

KK«0 

SU14 

36 

XX-XB+DXX 

SU14 

37 

YY*YB*DYY 

SU14 

38 


SU14 

39 




o no 


C SU14 40 

CALL FG0F< XB.YY»F2fG2l SU14 41 

CALL FG0F< XX, YB, FI, Gil SU14 42 

CALL FGOFC XB,YBtFO*GOI SU14 43 

A1«IF1-F0)/0XX SU14 44 

B1«CF2-F0I/DYY SU14 45 


C1—F0 

A2*< Gl-GOl /OXX 
B2*( G2-G0I /OYY 
C2*-G0 

0ET»AI*B2-A2*B1 

IF CDET.EQ.O.) GO TO 920 

DELX*(B2*Cl-Bi*C2) /OET 

OELY»(Al*C2-A2*Cl»/OET 

IF (ABS(OELX>.GT..OOll GO TO 8 

OELX»0. 

8 IF (ABS(DELYKGT..001| GO TO 9 
DELY*0. 

9 CONTINUE 

SDEL-ABS ( OEL X+OELX 1 1 +A&S ( DELY4DELY1 1 
DELX1-DELX 
OELYl-DELY 

TEST FOR SAME REGION 

00 10 J»i.IT 
XB1-XB+0ELX 
YB1-YB+0ELY 
IF ( YB1.LE.0.|YB1«0. 

M-COMP ( XB * YB • XB1 • YB 1 ) 

IF (M.EQ.O GO TO 15 
ll CONTINUE 

KK*1 

0ELX-.5*0ELX 
OELY** 5*0ELY 

10 CONTINUE 


SU14 46 
SU14 47 
SU14 48 
SU14 49 
SU14 50 
SU14 51 
SU14 52 
SU14 53 
SU14 54 
SU14 55 
SU14 56 
SU14 57 
SU14 58 
SU14 59 
SU14 60 
SU14 61 
SU14 62 
SU14 63 
SU14 64 
SU14 65 
SU14 66 
SU14 67 
SU14 68 
SU14 69 
SU14 70 
SU14 71 
SU14 72 
SU14 73 
SU14 74 
SU14 75 




GO TO 930 


SU14 76 


15 IF (ABS(XB-XB1>.GT.EXI GO TO 45 
#*F ( ABS( YB-YB1 ) .GT.EYI GO TO 43 
IF ( KK.NE .0 ) GO TO 45 
X«XB1 
Y«YB1 
K0DE*0 
RETURN 

45 CONTINUE 

IF (KOOE.NE.il GO TO 46 
IF ( SOEL.GT.EPI 1 ) GO TO 46 
DELX*.5*DELX 
DELY«.5*0ELY 
GO TO 9 

46 XB-XB1 
YB*YBi 
DEL*OELTA 

DO 70 N«1,N0EL 
XB2-XB+DEL 

M*C0MP(X8« YB*X62»Y6I 
IF (M.NE.ll GO TO 55 
OXX*DEL 
GO TO 80 

55 XB2“XB-DEL 

M»CONF(X8tYB.XB2,YB> 

IF (M.NE.ll GO TO 60 

DXX—DEL 

GO TO 80 

60 OEL».5*OEL 

70 CONTINUE 

GO TO 980 
80 OEL-OELTA 

00 100 N*1 •NOEL 
YB2-YB+0EL 

M-COMP < XB • YB • XB ♦ YB2 1 
IF (M.NE.ll GO TO 85 


SU14 77 
SU14 78 
SU14 79 
SU14 80 
SU14 81 
SU14 82 
SU14 83 
SU14 84 
SU14 85 
SU14 86 
SU14 87 
SU14 88 
SU14 89 
SU14 90 
SU14 91 
SU14 92 
SU14 93 
SU14 94 
SU14 95 
SU14 96 
SU14 97 
SU14 98 
SU14 99 
SU14 100 
SU14 101 
SU14 102 
SU14 103 
SU14 104 
SU14 105 
SU14 106 
SU14 107 
SU14 108 
SU14 109 
SU14 110 
SU14 111 






OVY-DEL 


SU14 

112 


GO TO 50 


SU14 

113 

85 

YB2*YB-DEL 


SU14 

114 


M=C OMP ( XB , YB , XB , YB2 ) 


SU14 

115 


IF ( M.NE. 1 ) GO TO 90 


SU14 

116 


DYY*-OEL 


SU14 

117 


GO TO 50 


SU14 

118 

90 

DEL«.5*0EL 


SU14 

119 

100 

CONTINUE 


SU14 

120 


GO TO 990 


SU14 

121 

50 

CONTINUE 


SU14 

122 


X*XB 1 


SU14 

123 


Y-Y01 


SU14 

124 


IF I KOOE.EQ. 1) RETURN 


SU14 

125 


KOOE*i 


SU14 

126 


GO TO 1 


SU14 

127 

920 

WRITE (3.922) I 


SU14 

128 

922 

FORMAT (46HOOETERMINANT IS 

0 IN 

SUBR. NRIT2 FOR ITERAT ION, 141 SU14 

129 


GO TO 950 


SU14 

130 

930 

KOOE-2 


SU14 

131 


RETURN 


SU14 

132 

950 

WRITE (3,952) XO.YO.XB.YB, 

XB1 »YB1 , DELX.DELY SU14 

133 

952 

FORMAT ( 1X5HZ0 »,E 15. 8.4X5HR0 

-,E15.8/IX5HZB « , E15.8 , 4X 5HRB *,SU14 

134 


IE 1 5« 8/1 X5HZ81 *,E15.8,4X5HRB1 * 

,E15.8/1X5H0ELZ-,E15.8,4X5H0ELR«,E1SU14 

135 


15.8/lHl) 


SU14 

136 


CALL EXIT 


SU14 

137 


RETURN 


SU14 

138 

980 

KODE-3 


SU14 

139 


RETURN 


SU14 

140 

990 

KODE-4 


SU14 

141 


RETURN 


SU14 

142 


ENO 


SU14 

143 


FUNCTION COMP( ZP.RP. ZPl . RP1 ) 

SU15 

l 

C 



SU15 

2 

C 

DETERMINES IF 2 POINTS 

ARE 

IN THE SAME REGION SU15 

3 


COMMON CASE 1 0 ( 14) , ITS1 , I TS2, I TS3, ITS4. ITU. IT 12, IT 13, I T 14, EPS1 , EP SSU15 

4 



^nno 


c 

c 

c 


10 

il 


12*EP$3,EP$A,EPS5,EPS6,EPIl,EPI2*EPI3,EPIA,EPI5,EPl6,EPl7,VP f AR,LENSU15 5 
1GTH*APR*BPR*81GAPR*8IGBPR*ESTAR*ALPHA*8ETA*RHG$TR, EPRS* RMOS SU15 6 
COMMON XMESHI20,20,6),XMESH2(20,20,6),Z(20),R<201, SURFtl 5 , 8 ) , SURF 2SU1 5 7 
1(15,8) ,TA8( 15,1 A, 2 l , TAB2 ( 15, 1 A, 2 ) , SPARTI 1 5, 2 , 2 1 , RARF( 15, 1 1) *RARF2(SU15 6 


115, A) ,RPART< 15,2) 

SU15 

9 


SU1 5 

10 

COMMON ZO*RO,PO,UO,VO*LO«MO«RHOO,EO, AO,UBARO* VBARO 

SU15 

11 


SU15 

12 

COMMON NP*NT*NR*NI , NOEL, I SUB 

SU15 

13 


SU15 

1A 

COMMON ZM1N, ZMAX,RMt N,RM AX* RA01US,GZ*GR* DELTA, H 

SU15 

15 

COMMON DIRCOS 

SU15 

16 

COMMON TIME 

SU15 

17 

COMMON IRARF 

SU15 

18 

COMMON KSTOP 

SU15 

19 

COMMON TPSI 

SU1 5 

20 

COMMON KKK 

SU15 

21 

REAL LO * MO » LENGTH* MU *K0 

SU15 

22 

EPS».OOOOOOl 

SU15 

23 

IF (RP1.LT. 0.1 GO TO 80 

SU15 

2A 

IF (ZP1.GE.0.) GO TO A 

SU15 

25 

IF (RPl.GT.RADIUSt GO TO 80 

SU15 

26 


SU15 

27 

FIND CONTROL CONSTANTS FOR ZP,RP 

SU15 

28 


SU15 

29 

CONTINUE 

SU15 

30 

IF (ITS3.EQ.ll GO TO 33 

SU15 

31 

IF ( IRARF. EQ.l) GO TO 13 

SU 15 

32 

M»PICMZP*RP,3I 

SU15 

33 

IF (ZP.GT.RARF(M*1 ).AND.M.NE.l IM»M-1 

SU15 

3A 

FF*RP-RARF (M+l,2)-( RARF ( M, 2 )-*RARF< M + l * 2 1 1*( ZP-RARFIM+1, 

11 l/(RARF(MSU15 

35 

L,1)-RARF<M+1*1I ) 

SU15 

36 

IF (FF.LT.O.) GO TO 11 

SU15 

37 

NN*1 

SU15 

38 

GO TO 13 

SU15 

39 

NN«0 

SU1 5 

AO 




13 


17 

21 


22 


30 

31 

32 

33 


80 


90 


CONTINUE 

00 22 K=l , 2 

M=PICK(ZP1,RPI,K) 

IF (RPl.LT.TABIM,2,K).AN0.M.NE.l )M=M-1 
CONTINUE 

FF=ZP1-TABIM+1.1,K>-<TA6<M,1 ,K)-TAB<M+1, 
ITAB(N,2,K*-TAB<M+1,2,K) ) 

IF (K.EQ.2I GO TO 17 
IF (RPl.GT. RADIUS! GO TO 21 
IF (FF.LT.-EPS) GO TO 90 
GO TO 21 

IF IFF. GT. EPS) GO TO 100 
IF (RP.GT. RADIUS) GO TO 22 
M®PICMZP1,RP1,4) 

FF=ZPl-SURFIM+l,ll-<SURF(M,l)-SURF<M+l, 1 
1<M,2)-SURF(M+1,2)> 

IF IFF) 80,22.22 
CONTINUE 

IF < IRARF.EQ.i) GO TO 33 
N®P ICK I ZPl »RP1 , 3) 

IF IZPl.GT.RARFCH.l ).AND.M.NE.l )H*M-l 
FF*RPl-RARF«M+l,2i-CRARF(M,2)“RARF(N+l,2 
1 1 H* 1 l-RARF < M+l , 1 ) ) 

IF CFF.LT.O.) GO TO 31 
NNl = l 
GO TO 32 
NN1 = 0 

IF (NN1.NE.NN) GO TO 110 

CONTINUE 

C0MP=1 

COMP®COMP+.2 

RETURN 

C0MP=2 

C0HP®C0MP+.2 
RETURN 
COMP® 3 • 


SU1 5 41 

$015 42 

SU15 43 
SU15 44 
SU15 45 

1,K) )*1RP1-TAB(M+1,2,K) )/<SU15 46 

SU15 47 
SU1 5 48 

SU15 49 
SU1 5 50 

SU15 51 
SU1 5 52 

SU 15 53 

SO 15 54 

M*IRPi-SURF<M*l,2) I/CSURFSU15 55 

SU15 56 
SU15 57 
SU15 58 
SU1 5 59 

SU15 60 
SU15 61 

) )*<ZPl-RARF<M+i,m/!RARFSU15 62 

SUl 5 63 

SU15 64 
SUl 5 65 

SU15 66 
SUl 5 67 

SU 15 68 

SU15 69 
SU15 70 
SU15 71 
SU15 72 
SUl 5 73 

SU15 74 
SU15 75 
SU15 76 




on n n n n 


100 

110 


c 

c 


C0MP*C0MP«-.2 SU15 77 
RETURN SU l 5 78 
COMP**. SU15 79 
C0MP*C0MP+.2 SU15 80 
RETURN SU15 81 
C0MP*5. SU15 82 
C0MP-C0MP+.2 SU15 83 
RETURN SU15 8* 
END SU15 85 
FUNCTION PICMZP,RP,K00EI SU16 1 

SU16 2 


DETERMINES 2 CLOSEST CONSECUTIVE POINTS ON SPECIFIED SU16 

LINE OF DISCONTINUITY TO A GIVEN POINT SU16 

SU16 

COMMON CASE 1 0(14), ITS1 . ITS2, ITS** ITS*, IT 1 1 , I T 12, IT 13, ITI*,EPSi.EP$SU16 
12,EPS3,EPS*,EPS5,EPS6,EPI1 ,EP 12, EP 1 3, EP I*, EP 1 5, EP 16, EP 1 7, VP, AR, LENSU16 
1GTH » APR , BPR * BI G APR »B l GB PR* ESTAR , ALPHA, BETA, RHOSTR, EPRS,RHOS SU16 

COMMON XME SH ( 2 0 , 2 0 , 6 ) ,XMESH2( 20 , 20 ,6) , Z C 20 ) , R ( 20 1 , SURF ( 15, 8) , SURF2SU16 
1(15,8), TAB (15,14,2) ,TAB2( 15,14,2 ) »SPART 115,2,2 ) ,RARF( 15, 11 )«RARF2< SU16 
il5,4),RPART(15,2) SU16 

SU16 

SU16 

COMMON ZO,RO»PO»UO»VO*LO*MO,RHQO*EO» AO»UBARO* VBARO SU16 

SU16 

COMMON NP,NT,NR,NI , NOEL, (SUB SU16 

SU16 

COMMON ZMIN,ZMAX,RMIN,RMAX, RADIUS, GZ,GR, DELTA, H SU16 

COMMON OIRCOS SU16 

COMMON TIME SU16 

COMMON IRARF SU16 

COMMON KSTOP SU16 

COMMON TPSI SU16 

COMMON KKK SU16 

REAL LO, MO, LENGTH, MU, KO SU16 

SU16 

GO TO (5, 10,100, 300),K0DE SU16 


3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 


^>2 



5 

NN-NP 


SU16 

28 


K-l 


SU16 

29 


GO TO 15 


SU16 

30 

10 

NN-NT 


SU16 

31 


K-2 


SU16 

32 

15 

AA-(TAB(l«l*KI-ZPI **2*< TAB ( l *2 »K| -RP) **2 


SU16 

33 

C 



SU16 

34 

C 

SEARCH SHOCK TABLES 


SU16 

35 

C 



SU16 

36 


DO 60 N-2.NN 


SU16 

37 


A»<TAB<N,1,K»-ZP>**2*CTAB<N,2,K)-RPI**2 


SU16 

38 


IF U.GE.AA) GO TO 23 


SUL6 

39 


AA-A 


SU16 

40 

60 

CONTINUE 


. SU16 

41 


PICK-NN-1 


SU16 

42 


PICK-PICK*. 2 


SU16 

43 


RETURN 


SU16 

44 

23 

PICK-N-1 


SU16 

45 


PICK-PICK*. 2 


SU16 

46 


RETURN 


SU16 

47 

100 

AA«< RARF 1 1 * 11- ZP ) **2+< RARF ( 1 «2 1 -RP > **2 


SU16 

48 

c 



SU16 

49 

c 

SEARCH RAREFACTION TABLE 


SU16 

50 

c 



SU16 

51 


00 200 N-2.NR 


SU16 

52 


A-(RARF(N« 1 > -ZP 1 **2 ♦ IRARFINf 21 -RP 16*2 


SU16 

53 


IF (A.GE.AA) GO TO 203 


SU16 

54 


AA-A 


SU16 

55 

200 

CONTINUE 


SU16 

56 


PICK-NR-1 


SU16 

57 


PICK-PICK*. 2 


SU16 

58 


RETURN 


SU16 

59 

203 

PICK-N-1 


SU16 

60 


PICK-PICK*. 2 


SU16 

61 


RETURN 


SU16 

62 

300 

AA- C SURF 11 * 1 l-ZP 1 **2*C SURF < 1 • 2 1 -RP \ **2 


SU16 

63 


^3 



c 

c 

c 


400 


303 

304 


c 

c 

c 

c 


c 

c 

c 

c 


SU16 

SEARCH FREE SURFACE TABLE $U16 

SU16 

00 400 N»2,NP SU16 

A*(SURF(N, U-ZPI**2+(SURF<N,2I-RP|«*2 SU16 

IF IA.GE.AA) GO TO 303 SU16 

AA*A SUI6 

CONTINUE SU16 

PJCK«NP-1 SU16 

PICK»PICK>«2 SU16 

RETURN SU16 

PICK«N-1 SU16 

PICK*PICK*.2 SU16 

CONTINUE SUI6 

RETURN SU16 

ENO SUI6 

SUBROUTINE GUE SS( K001 ,K002 ,ZP*RP« 1 2 ,K2 * ZG* RG, OZ, DR I SU17 

SU17 

DETERMINES STARTING POINT ANO DELTAS SU17 

FOR NEWTON-RAPHSON ITERATION SU17 

SUIT 

COMMON CASEI0<14),IT$i*lTS2,IT$3,ITS4, ITU.ITI2, IT 13, IT 14, EPS1, EPSSU17 
12,EPS3,EPS4*EPS5,EPS6,EPI1*EPI2,EPI3,EPI4,EP15,EPI6,EPI7,VP, AR,LENSU17 
1GTH, APR, BPR,BIGAPR* 8IGBPR, ESTAR, ALPHA, BETA, RHOSTR, EPRS, RHOS SUIT 

COMMON XME SH 1 20* 20*6) * XMESH2I 20*20*6)*Z(20t*R(20), SURF (15*81 * SURF 2 SUIT 
II 15*81 *TAB( 15*14*2) * TAB2 ( 15* 14*2 1 ,SPART I 15* 2*2) * RARFI15* 11 >*RARF2( SU17 
115,4), RPART<15*2) SU17 

SU17 

SU17 

COMMON ZO*RO,PO«UO , VO*LO« MO*RHOO ,E0« AO,U6ARO *VBARO SUIT 

SU17 

COMMON NP,NT,NR,NI «NOEL* ISUB SU17 

SU17 

COMMON ZMIN,2MAX,RMIN,RMAX*RAO!US*G2,GR*OELTA*H SU17 

COMMON OIRCOS SU17 

COMMON TIME SU17 


64 

65 

66 

67 

68 
69 
TO 

71 

72 

73 

74 

75 

76 

77 

78 

79 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 


5 O l , '/ 




COMMON IRARF 

SU17 

21 


COMMON KSTOP 

SUIT 

22 


COMMON tPSl 

SU17 

23 


COMMON KKK 

SU1 7 

24 


REAL L0« MO » LENGTH «MU«KO 

SUIT 

25 

c 


SU17 

26 


KS»0 

SU17 

27 


IF (K00l.EQ.2l GO TO 10 

SUIT 

28 


ZG«TAB(I2,l,K2) 

SU17 

29 


RG»TAB(I2«2,K2I 

SU17 

30 


(F ( IRARF.EQ.il GO TO 9 

SU17 

31 

2 

M» i-< NR-21 *( K2-2 1 

SU17 

32 


FF-RG-RARF ( M+l , 2 1 - C RARE C M,2 1 -RARFIM+l. 

21 1 *1 ZG-RARF (M+l* l!l/( RARF< MSU17 

33 


1*1 l-RARF ( M+l * 1 1 1 

SUIT 

34 


IF (FF.GT.O.I GO TO 9 

SU17 

35 


ZG«( l.-.02/(RADIUS-RGI I *ZG 

SU17 

36 


RG*RG+.Q2 

SU17 

37 


IF (RG.GT. (RADIUS- .Oil 1 GO TO 110 

SUIT 

38 


GO TO 2 

SU17 

39 

9 

CONTINUE 

SU1 7 

40 


GO TO 50 

SU17 

41 

10 

JJJ-NT-l 

SU17 

42 


IF < ITS3.EQ.il GO TO 26 

SU17 

43 


DO 24 MMtJJJ 

SUIT 

44 


IF (RP.GT.TAB(M+1 V 2»2). OR. RP.LT • TAB (M* 

2. 211 GO TO 24 SU17 

45 


GO TO 25 

SUIT 

46 

24 

CONTINUE 

SU17 

47 

25 

CONTINUE 

SUIT 

48 


FF»ZP-TAB(M+l,l*21-ITAB(M,l t 21-TAB(M+l 

? 1« 2 1 1 *<RP-T A8IM+1*2*2I)/(TASU17 

49 


1B(M»2*2I“TA8(M+1*2*2I 1 

SU17 

50 


IF (FF.GT.O.I GO TO 20 

SU17 

51 

26 

CONTINUE 

SUIT 

52 


ZG*ZP 

SU17 

53 


RG-RP 

SUIT 

54 


GO TO 50 

SU17 

55 

20 

IK«M 

SU17 

56 





M»CR0SS(TAB< IK, 1,2) *TAB< IK, 2, 2 1 ♦ TAB ( IK*l , 1, 2 ) , TABI IK+1, 2, 2 ) ,0. ♦ 0. 

, SU17 

57 


1ZP,RP»ZG*RG) 

SU17 

58 


GO TO 150,920,930) ,M 

SU17 

59 

c 


SU17 

60 

c 

COMPUTE DELTAS 

SUIT 

61 

c 


SU1 7 

62 

50 

OEL*OELTA 

SUI7 

63 

c 

■ 

SU17 

64 

c 

Z OELTA 

SUI7 

65 

c 


SU17 

66 


LL«0 

SU17 

67 

52 

00 70 N«l»NDEL 

SU1 7 

68 


ZZ*ZG+OEL 

SU17 

69 


M«COMPIZG,RG,ZZ,RG) 

SU17 

70 


IF (M.NE.l) GO TO 55 

SU17 

71 


DZ«DEL 

SU17 

72 


GO TO 80 

SUIT 

73 

55 

ZZ-ZG-OEL 

SU17 

74 


M*COMP (ZG,RG,ZZ,RG) 

SU17 

75 


IF (M.NE.l) GO TO 60 

SU17 

76 


OZ— DEL 

SUIT 

77 


GO TO 60 

SUIT 

78 

60 

DEL-.560EL 

SUIT 

79 

70 

CONTINUE 

SUIT 

80 


LL*LL*1 

SUIT 

81 


IF (LL.E0.3) GO TO 75 

SU17 

82 


RG*RG-DELTA/5. 

SU17 

83 


OEL«OELTA 

SU17 

84 


GO TO 52 

SU17 

85 

75 

K0D2-2 

SUIT 

86 


RETURN 

SU17 

87 

60 

OEL-DELTA 

SU17 

88 


IF (KS.EQ.lt GO TO 120 

Sin 7 

89 

C 


SU17 

90 

C 

R OELTA 

SUIT 

91 

C 


SUI 7 

92 






LL*0 

SUIT 

93 

82 

00 100 N*1 * NOEL 

SU17 

94 


RR=RG*OEt 

SU17 

95 


M»COMP(ZG,RG,ZG,RR) 

SU1 7 

96 


IF (M.NE.l) GO TO 85 

SUIT 

97 


DR=OEL 

SU1 7 

98 


IF ( KS.EQ. 1 1 GO TO 50 

SU17 

99 


GO TO 120 

SU 17 

100 

85 

RR*RG-DEL 

SUIT 

101 


N«CGMP ( ZG* RG* ZG»RR 1 

SU17 

102 


IF <M.NE.l) GO TO 90 

SU17 

103 


OR=-DEL 

SU17 

104 


IF (KS.EQ. 1) GO TO 50 

SU17 

105 


GO TO 120 

SU17 

106 

90 

DEL*. 5*DEL 

SU17 

107 

100 

CONTINUE 

SU17 

108 

108 

CONTINUE 

SU17 

109 


LL-ll+i 

SU17 

110 


FLL«LL 

SU17 

111 


IF UL.EQ.5) GO TO 110 

SU17 

112 

C 


SU17 

113 

104 

ZGl*ZG*DELTA/5. *FLL*(-1.) **LL 

SU17 

114 


H=C0MP(ZG*RG,ZG1 *RG) 

SU17 

115 


ZG=ZGi 

SU17 

116 


IF (H. NE.lt GO TO 108 

SU 17 

117 


KS-1 

SU 17 

118 


GO TO 82 

SU17 

119 

110 

KOD2=2 

SU17 

120 


RETURN 

SU17 

121 

120 

K002*l 

SU17 

122 


RETURN 

SU17 

123 

920 

WRITE (3,922) 

SU17 

124 

922 

FORMAT (42H0ERR0R FOR COINCIDENT LINES IN SUBR. GUESS! 

SU17 

125 


GO TO 950 

SU17 

126 

C 


SU17 

127 

930 

WRITE (3,932) 

SU17 

128 



932 

FORMAT ( 40H0ERR0R FOR PARALLEL LINES IN SUBR. GUESS) 

SU17 

129 

C 


SU17 

130 

950 

WRITE <3,9521 K0D1 , 12, K2 ,ZP,RP 

SU17 

131 

952 

FORMAT <1X5HK001-,I4,4X3HI2=,I4,4X3HK2», 14/ 1X3HZP-, E 15 

•8*4X3 HRP=»ESU17 

132 


115.8/1H1) 

SU 17 

133 


XYZ— 2. 

SU 17 

134 


ZYX-SQRT(XYZ) 

SU17 

135 


CALL EXIT 

SU17 

136 


RETURN 

SU17 

137 


END 

SU17 

138 


FUNCTION CROSS! XI, Yl ,X2 « Y2 ,X3 , Y3 , X4,Y4,X, Y ) 

SU18 

1 

C 


SU18 

2 

C 

FINDS INTERSECTION OF TWO STRAIGHT LINES 

SU18 

3 

C 


SU18 

4 


EPS-. 0000001 

SU18 

5 


AI-Y2-Y1 

SU18 

6 


B1-XI-X2 

SU18 

7 


Cl*Xl*Al+Yl*Bl 

SU18 

8 


A 2= Y4-Y3 

SU18 

9 


B2-X3-X4 

SU1 8 

10 


C2«X3*A2*Y3*B2 

SU18 

11 


0ET«A1*B2-A2*B1 

SU18 

12 


Dl-C 1*B2-C2*B1 

SU18 

13 


D2=AI*C2-A2*C1 

SU18 

14 


IF < ABSCOETI .LE.EPS I GO TO 10 

SU18 

15 


X-01/DET 

SU1 8 

16 


Y-02/DET 

SU18 

17 


CROSS-1 

SU18 

18 


CROSS-CROSS*. 2 

SUL8 

19 


RETURN 

SU18 

20 

10 

IF <ABS<D1).GT.EPS) GO TO 20 

SU18 

21 


IF < ABS<D2I.LE.EPS) GO TO 30 

SU18 

22 

20 

CROSS-3 

suie 

23 


CROSS-CROSS*. 2 

SU18 

24 


RETURN 

SU18 

25 

30 

X-Xl 

SU18 

26 






Y-Vl 

SU18 

27 


CROSS-2 

SU18 

28 


CROSS-CROSS*. 2 

suie 

29 

316 

CONTINUE 

SU18 

30 


RETURN 

SUIB 

31 


END 

suie 

32 


FUNCTION PARTI NODE, 2P»RP,ZX«RX* DELTA. NOEL 1 

SU19 

1 

C 

, 

SU19 

2 

C 

LOCATES A POINT IN THE SANE REGION AS A GIVEN POINT 

SU19 

3 

C 

TO BE USED IN COMPUTING A PARTIAL 

SU19 

4 

c 

NODE*!, WITH RESPECT TO R 

SU19 

5 

c 

M0DE*2*MITH RESPECT TO Z 

SUI9 

6 

c 


SU19 

7 


GO TO <2, 41, NODE 

SU19 

8 

2 

DR-OELTA 

SU19 

9 


0Z*0. 

SU19 

10 


GO TO 8 

SU19 

11 

4 

DR-O. 

SU19 

12 


DZ-DELTA 

SU19 

13 

e 

00 50 NN*1,N0EL 

SU19 

14 


RR«RP*OR 

SU19 

15 


ZZ«ZP*OZ 

SU19 

16 


N*CONP(ZP,RP,ZZ,RR) 

SU19 

17 


IF {M.EQ.II GO TO 60 

SU19 

18 


RR-RP-OR 

SU19 

19 


ZZ-ZP-OZ 

SU19 

20 


N*CONP (ZP«RP*ZZ,RR1 

SU19 

21 


IF (N.EQ.l) GO TO 60 

SU19 

22 


0Z»0Z*.5 

SU19 

23 


0R«DR».5 

SU19 

24 

50 

CONTINUE 

SU19 

25 


PART-2 

SU19 

26 


PART-PART*. 2 

SU19 

27 


RETURN 

SU19 

26 

60 

zx-zz 

SU19 

29 


RX-RR 

SUI9 

30 






PART* l 

SU19 

31 


PART-PART*. 2 

SU19 

32 


RETURN 

SU19 

33 


END 

SU19 

34 


FUNCTION P!CK2<ZP,RP,K0DE) 

SU20 

l 

c 


SU20 

2 

c 

DETERMINES 2 CLOSEST CONSECUTIVE POINTS 

ON SPECIFIED SU20 

3 

c 

LINE OF DISCONTINUITY TO A GIVEN POINT 

SU20 

4 


COMMON CASEID(14l,IT$l, I TS2, I TS3, 1TS4, IT 1 1 * 

ITI2,1T!3,ITI4,EPS1, EPSSU20 

5 


12,EPS3,EPS4,EPS5,EPS6,EPI1,EPI2, EPI3,EPI4,EPI5,EPI6,EPI7,VP,AR,LENSU20 

6 


1GTH, APR, BPR,BIGAPR,BIGBPR,E$TAR, ALPHA, BETA, 

RHOSTR, EPRS, RHOS SU20 

7 


COMMON XME SH( 2 0,20,61 ,XMESH2(20,20,6 1 , ZI201 

, R( 20 ) , SURF( 15, 81 , SURF 2SU20 

8 


1(15,8) ,TAB<15, 14,2) ,TAB2(15,14,2t,SPART< 15, 

2,21, RARF (15,11), RARE 21 SU20 

9 


115, 41, RP ART! 15,21 

SU20 

10 

c 


SU20 

11 


COMMON ZO,RO,PO,UO, VO,LO,MO, RHOOtEO, AO,UBARO,V6ARO SU20 

12 


COMMON NP,NT,NR,N1 ,NOEL, I SUB 

SU20 

13 

c 


SU20 

14 


COMMON ZMIN,ZMAX,RMIN,RMAX,RA01US,GZ,GR, DELTA, H SU20 

15 


COMMON DIRCOS 

SU20 

16 


COMMON TIME 

SU20 

17 


COMMON IRARF 

SU20 

18 


COMMON KSTOP 

SU20 

19 


COMMON TPS I 

SU20 

20 


COMMON KKK 

SU20 

21 


REAL LO, MO, LENGTH, MU,KO 

SU20 

22 

c 


SU20 

23 


GO TO (5,10,100,205,210,300,500) ,KOOE 

SU20 

24 

5 

NN-NP 

SU20 

25 


K*i 

SU20 

26 


GO TO 15 

SU20 

27 

10 

NN*NT 

SU20 

28 


K-2 

SU20 

29 

15 

AA* ( TAB2 ( 1 , 1 , K ) -ZP ) ** 2 + ( TAB2 ( 1,2, M-RP ) **2 

SU20 

30 

C 


SU20 

31 

C 

SEARCH SHOCK TABLES 

SU20 

32 




c 


SU20 

33 


00 60 N«2*NN 

SU20 

34 


A“C TAB2( N* 1#K|-ZP) **2*(TAB2(N«2#M-RPl**2 

SU20 

35 


IF (A.GE.AA) 60 TO 23 

SU20 

36 


AA«A 

SU20 

37 

60 

CONTINUE 

SU20 

38 


PICK2-NN-1 

SU20 

39 


PICK2-PICK2+.2 

SU20 

40 


RETURN 

SU20 

41 

23 

PICK2-N-1 

SU20 

42 


PICK2-PICK2+.2 

SU20 

43 


RETURN 

SU20 

44 

100 

AA*| RARF2I 1 • 1 l-ZPl **2MRARF21 1 »2 1-RPl **2 

SU20 

43 

C 


SU20 

46 

c 

SEARCH RAREFACTION TABLE 

SU20 

47 

c 


SU20 

48 


00 200 N-2«NR 

SU20 

49 


A-<RARF2(Ntll-2P>**2MRARF2(N»2)-RP)**2 

SU20 

50 


IF <A.GE.AA> GO TO 203 

SU20 

51 


AA»A 

SU20 

52 

200 

CONTINUE 

SU20 

53 


PICK2-NR-1 

SU20 

54 


PICK2*PICK2*.2 

SU20 

55 


RETURN 

SU20 

56 

203 

PICK2*N-l 

SU20 

57 


PICK2-PICK2+.2 

SU20 

58 


RETURN 

SU20 

59 

205 

NN-NP 

SU20 

60 


K«l 

SU20 

61 


GO TO 215 

SU20 

62 

210 

NN«NT 

SU20 

63 


K«2 

SU20 

64 

215 

AA*( SPARK l f l,KI-ZPI**2+<SPARTU,2.K|-RP)**2 

SU20 

6S 

C 


SU20 

66 

c 

SEARCH SMOCK PARTICLE TABLES 

SU20 

67 

c 

* 

SU20 

66 


3 // 




DO 260 N=2»NN 

SU20 

69 


A=< SPAR T< N f i t K)-7.P) **2 + l SP ART IN,2»K)-RP ) **2 

SU20 

70 


IF (A.GE.AM 00 TO 223 

SU20 

71 


A A = A 

SU20 

72 

2oQ 

CONTINUE 

SU20 

73 


P I CK2=NN- I 

SU20 

7 A 


PICK2=PICK2+.2 

SU20 

75 


RETURN 

SU20 

76 

22 3 

P I CK2=N- 1 

SU2 0 

77 


PICK2=PICK2+.2 

SU20 

7 fl 


RETURN 

SU20 

79 

300 

AA = < RPARTI 1 ♦ U-2P) **2 + 1 RPART ( I ,2 >-RP) **2 

SU20 

60 

C 


SU20 

81 

c 

SEARCH RAREFACTION PARTICLE TABLE 

SU20 

82 

c 


SU20 

83 


DO AOO N.= 2 * N R 

SU20 

8 A 


A=( RPARTIN* 1 ) — Z P 1 **2 + (RPART (N»2 )-RP) **2 

SU20 

85 


IF < A.GE . AA ) GO TO A03 

SU20 

86 


AA = A 

SU20 

87 

AGO 

CONTINUE 

SU20 

88 


P I C K2-NR-1 

SU20 

89 


P1CK?=PICK2 +.2 

SU20 

90 


RETURN 

SU20 

91 

AO 3 

PIC K 2 = N— 1 

SU20 

92 


PICK2=PICK2+.2 

SU20 

93 


RE TURN 

SU20 

9 A 

500 

AA= ( SUR F21 1* I l-ZP)**2 + I SURF2I 1»2)-RP1**2 

SU20 

95 

C 


SU20 

96 

C 

SEARCH FREE SURFACE TABLE 

SU20 

97 

C 


SU20 

98 


DO 520 N=2,NP 

SU20 

99 


A=( SURF2(N t l)-ZP)**2+(SURF2IN f 2)~RP)**2 

SU20 

100 


IF ( A.GE . A A ) GO TO 523 

SU20 

101 


AA = A 

SU20 

102 

520 

CONTINUE 

SU20 

103 


PICK2=NP-1 

SU20 

10A 





o o o o r> 


523 


C 

C 

c 

c 


c 


PICK2*PICK2+.2 

SU20 

105 

RETURN 

SU20 

106 

P ICK2«N- 1 

SU20 

107 

PlCK2*PICK2+.2 

SU20 

108 

RETURN 

SU20 

109 

ENO 

SU20 

110 

FUNCTION TEST<ZP,RP) 

SU21 

1 


SU21 

2 


SU21 

3 

DETERMINES IF A GIVEN INTERIOR POINT IS IN 

SU21 

4 

THE REGION TO BE CONSIDERED 

SU21 

5 


SU21 

6 

COMMON CASE I 01 14» , I TS1, I TS2 , I TS3, I TS4, ITI I . I T 1 2 , 1 T 1 3, I T 14, EPS1 , EP SSU2 1 

7 

12»EP$3»EP$4,EPS5,EPS6,EPI1*EPI2,EPI3»EPI4,EP15»EPI6»EPI7»VP» 

AR, LENS02 l 

8 

1GTH,APR,BPR,BIGAPR, B IGBPR, ESTAR,ALPHA, BETA, RHOSTR, EPRS,RHOS 

SU21 

9 

COMMON XMESH(20,20,6) , XMESH2 < 20, 20 ,6 1 , Z < 201 , R ( 20 ) , SURF I 15, 8 1 

, SURF 2SU2 1 

10 

H 15,81 , TAB ( 15,1 A ,2 1 , TAB2 (15,14,2) »SPART I 15,2,2), RARE ( 15, 11), 

RARF2ISU21 

11 

115,4),RPART( 15,2) 

SU2 1 

12 


SU21 

13 


SU21 

14 

COMMON ZO,RO,PO,UO,VO* LO ,M0 ,RHOO ,E0, AO, UBARO , VBARO 

SU21 

15 


SU21 

16 

COMMON NP,NT,NR,NI , NOEL , I SUB 

SU2 1 

17 


SU2 1 

18 

COMMON ZMIN, ZMAX , RMl N,RMAX , R AOIUS , GZ , GR, DELT A, H 

SU2 1 

19 

COMMON DIRCOS 

SU21 

20 

COMMON TIME 

SU21 

21 

COMMON IRARF 

SU21 

22 

COMMON KSTOP 

SU21 

23 

COMMON TPS I 

SU21 

24 

COMMON KKK 

SU21 

25 

REAL LO, MO, LENGTH, MU, KO 

SU21 

26 


SU2 1 

27 

EPS*. 0001 

SU21 

28 

IF { ITS3.E0.U GO TO 5 

SU21 

29 

IF (RP.GT.IRADIUS+EPSI) GO TO 5 

SU21 

30 


2/2 



M=PICK2(ZP,RP,7) 

FF=2P-SURF2(M+l,l>-<SURF2(M,ll-SURF2(H+lf 1) )*<RP- 
1 2 ( M* 21-SURF 2 1 M+l,2) 1 
K I CK=5 

CALL DVCHMKQI 
IF IKQ.EO.ll GO TO 9960 
IF IFF) 200,5,5 
5 CONTINUE 

IF I ZP.GT .-EPS 1 GO TO 1 
IF (RP.GT.IRADIUS+EPS11 GO TO 200 
1 00 10 K = 1 » 2 

IF ( ITS3.EQ. I I GO TO 100 
M=PICK2(ZP,RP,K| 

IF <TAB2<M,2,K).GT.RP.AND.M.NE.1»M=M-1 
FF*ZP-TAB2<M+1,1,K»-(TAB2(H,1,K)-TAB2!M+1,1,KU*< 
1/!TA82(M,2»K)-TAB2(M+1»2»K11 
KICK*50 
CALL DVCHK ( KQ 1 
IF IKQ.EO.ll GO TO 9980 
IF IK.6Q.21 GO TO 50 
IF (RP.GT.RAOIUS) GO TO 10 
IF IFF) 200,10,10 
50 IF I FF I 10,10,200 

10 CONTINUE 

DO 20 K=l,2 
J-K+3 

H»PICK2(ZP,RP,J) 

IF <SPART<M,2,K1.GT.RP.AND.M.NE.1IN=M-1 
FF=ZP-SP ART! H+l»l»K|-<SPART(M,i,K)-$ PART <M'*-1,1»K| 
1.KI1/I SPART(H,2,K)-SPART<M+i,2,Kt) 

KICK=15 

CALL DVCHK I KQ I 

IF t KQ.EQ. 1 1 GO TO 9980 

IF (K.EQ.2J GO TO 15 

IF (RP.GT.RAOIUS) GO TO 20 

IF (FF.LT . *001 1 GO TO 300 


SU21 

31 

RFSU21 

32 

SU2 1 

33 

SU21 

34 

SU21 

35 

SU21 

36 

SU21 

37 

SU2 1 

38 

SU21 

39 

SU21 

40 

SU21 

41 

SU2 1 

42 

SU21 

43 

SU21 

44 

) )SU2l 

45 

SU2 1 

46 

SU21 

47 

SU2 1 

48 

SU2 1 

49 

SU21 

50 

SU21 

51 

SU21 

52 

SU21 

53 

SU21 

54 

SU21 

55 

SU21 

56 

SU21 

57 

SU21 

58 

, 2SU21 

59 

SU21 

60 

SU21 

61 

SU21 

62 

SU21 

63 

SU21 

64 

SU21 

65 

SU21 

66 





15 

20 


100 

200 

300 

400 

500 

9980 

9985 


GO TO 20 

IF (FF.GT.-.OOll GO TO 400 
CONTINUE 

IF ( IRARF.EQ.il GO TO 100 
M=PlCK2(ZP,RP»3l 
FF=RP-RARF2<M+l,2t-(RARF2(M,21 
1RF2 ( M, ll“RARF2(M*-l, 1 1 ) 

K ICK=20 
CALL DVCHKIKQ1 
IF (KQ.EQ.il GO TO 9980 
IF <FF. LT. 0-1 GO TO 100 
M=PICK2(ZP,RP,61 
FF=RP-RPAR T < M+ 1 ,21 -l RPARTI M,2 I 
lART(Hfl) -RPART ( M+l , 1 l ) 

K ICK* 100 
CALL OVCHKIKQ) 

IF (KQ.EQ.ll GO TO 9980 
IF (FF.LT.O. 1 GO TO 500 
TE ST* l 

TEST=TEST*.2 

RETURN 

TEST=2 

TEST=TEST+.2 

RETURN 

TE$T=3 

TEST=TEST+.2 

RETURN 

TEST=4 

TE ST*TE ST*- . 2 
RETURN 
TE ST=5 

TEST*TEST+.2 

RETURN 

WRITE (3,99851 KICK 
FORMAT ( 32H00I VI DE CHECK NEAR 
IH1 1 


STATEMENT N0.,I5,14H IN SUBR. 


SU21 

67 

SU2 1 

68 

SU21 

69 

SU21 

70 

SU2 1 

71 

1 ) /(RASU21 

72 

SU21 

73 

SU21 

74 

SU21 

75 

SU2 1 

76 

SU21 

77 

SU21 

78 

1 1/CRPSU21 

79 

SU2 1 

80 

SU21 

81 

SU21 

62 

SU2L 

83 

SU21 

84 

SU21 

85 

SU21 

86 

SU21 

87 

SU21 

88 

SU21 

89 

SU2 1 

90 

SU21 

91 

SU21 

92 

SU21 

93 

SU21 

94 

SU2 1 

95 

SU2 1 

96 

SU21 

97 

SU21 

98 

SU21 

99 

SU21 

100 

TEST /ISU21 

101 

SU21 

102 


2 /^ 



uuuu 


RETURN 

SU2 1 

103 

END 

SU2 1 

104 

SUBROUTINE FG0F5 ( Z 5 ♦ R5 ♦ SS, QQ 1 

SU22 

1 


SU22 

2 

COMPUTES S5 » 05 FOR INTERIOR REGION 

SU22 

3 

ITERATION FOR Z5,R5 

SU22 

4 


SU22 

5 

COMMON CASEID<14)»ITS1»ITS2»ITS3,ITS4,ITI1,ITI2»ITI3» IT 14, EPS 1, EPSSU22 

6 

12,EPS3,EPS4,EPS5,EPS6,EPU,EPI2,EPI3,EP14, EP 1 5 , EP 1 6, EP 1 7, VP, 

AR , L ENSU22 

7 

1GTH*APR*BPR»BI GAPR » B IGBPR, EST AR » ALPHA, BET A » RHO$TR*EPRS»RHOS 

SU22 

8 

COMMON XME$H(20,20,6) ,XMESH2(20,20,6),Z<20» ,R(201,SURF(15,8f 

♦SURF2SU22 

9 

1(15,81, TAB! 15,14,2) ,TAB2( 15, 14,21 , SPARK 15, 2,2), RARFC 15, 111, 

RARF2( SU22 

10 

115,4),RPART( 15,21 

SU22 

11 


SU22 

12 


SU22 

13 

COMMON ZO,RO,PO,UO»VO»LO,MO*RHOO,EO» AO ,U8AR0 , VBARO 

SU22 

14 


SU22 

15 

COMMON NP,NT,NR,NI , NOEL , I SUB 

SU22 

16 


SU22 

17 

COMMON ZMIN,ZMAX,RHIN,RMAX,RADIUS,GZ,GR,0ELTA,H 

SU22 

18 

COMMON 01RC0S 

SU22 

19 

COMMON TIME 

SU22 

20 

COMMON IRARF 

SU22 

21 

COMMON KSTOP 

SU22 

22 

COMMON TPSI 

SU22 

23 

COMMON KKK 

SU22 

24 

REAL LO, MO, LENGTH, MU, KO 

SU22 

25 


SU22 

26 

DIMENSION ANSI 6 ) 

SU22 

27 


SU22 

28 

CALL DBLTRPf Z 5, R 5, ANSI 

SU22 

29 

U5«ANS(2I 

SU22 

30 

V5*ANS ( 3 1 

SU22 

31 

SS=Z5-Z0*H*V5 

SU22 

32 

QQ=R5-R0+H*U5 

SU22 

33 

RETURN 

SU22 

34 


^ /"Cr 



o o n o no 


c 

c 

c 

c 


END SU22 35 

SUBROUTINE ITRP SU23 I 

COMMON CAS E I D( 14) , ITSi, I T$2 » IT S3* I TS4, ITU V ITI2»ITI3» I T I 4 , EPS l , EP SSU2 3 2 

12,EP$3,6PS4,EPS5,EPS6,EPI1 ♦ FP l 2 , EP l 3 , E P 1 4 , E P I 5 , E P I 6, £ P l 7 , VP , AR , L E N$ U2 3 3 

1GTH,APR, BPR, BIG APR ,B1GBPR,E STAR, ALPHA, BETA, RHOSTR,EPRS,RHOS SU23 4 

COMMON XMESH (20,20,6) »XMESH2(20»20»6), Z(20) , R ( 20 ) , SURF! 15, 8) , SURF 2SU23 5 

1(15,8) , TAB ( 15,14,2) , T AB2 ( 1 5 , 1 4, 2 ) , SP ART ( 15, 2 , 2 ) , RAR F ( 1 5 , 1 1 ) , RARF 2 1 SU23 6 


115,4) ,RPART( 15,2) 

SU23 

7 


SU2 3 

8 


SU2 3 

9 

COMMON ZO,RO,PO,UO,VO,LO,MO,RHOO,EO,AO,U6ARO,VBARO 

SU23 

10 


SU23 

11 

COMMON NP,NT,NR,NI,NOEL,ISUB 

SU2 3 

12 


SU23 

13 

COMMON ZMIN,ZMAX,RM1N,RMAX,RA0IUS,C.Z,GR,0ELTA,H 

SU2 3 

14 

COMMON DIRCOS 

SU23 

15 

COMMON TIME 

SU23 

16 

COMMON IRARF 

SU23 

17 

COMMON KSTOP 

SU23 

18 

COMMON TPS I 

SU2 3 

19 

COMMON KKK 

SU23 

20 


SU23 

21 


SU2 3 

22 

REAL L 0 ,M0 , LENGTH , MU, KO 

SU23 

23 


SU23 

24 

INTERPOLATION SCHEME FOR POINTS BETWEEN PARTICLE CURVES 

SU23 

25 

AND DISCONTINUITIES 

SU23 

26 


SU23 

27 

EPS=. 0000001 

SU23 

28 

K0D1=0 

SU23 

29 

KOD2-0 

SU23 

30 

00 1000 J s 1 , 20 

SU23 

31 

00 1000 I * l , 20 

SU23 

32 

M*TEST(Z< I),RC Jl) 

SU23 

33 

IF (M.NE.5) GO TO 906 

SU23 

34 

IF ( IRARF. EO.U GO TO 906 

SU23 

35 






NR 1=NR-1 

SU2 3 

36 


00 907 JJ=l,NRl 

SU23 

37 


IF (RARF2C JJ,1).LT.ZU KAN0.RARF2I JJ + W1).GT.ZU )) GO TO 908 

SU23 

38 

907 

CONTINUE 

SU2 3 

39 

908 

CONT I NUE 

SU23 

4C 


FF=R( J )-RARF2< JJ+l ,2 )♦( RARF 2 ( J J , 2 > -RARF2 1 J J ♦ 1 , 2 ) )MZ( I )-RARF2(JJ+lSU23 

41 


It lit /( RARF 2 I JJ,l I-RARF2 ( JJ+i, 1 ) I 

SIJ23 

42 


IF (FF.LT.O. 1 GO TO 1000 

SU23 

43 

906 

CONTINUE 

SU23 

44 


IF (M.EQ.3.AND.ZI 1 > . LT. EPS* AND . ABS ( R ( J ) -R AO I US ) .IT . EP S ) GO TO 

1 000SU23 

45 


IF (M.LT.3) GO TO 8051 

SU23 

46 


WRITE (3,8050) 

SU23 

47 

8050 

FORMAT < 30H0INTEPP0LATI ON SCHEME EMPLOYED) 

SU2 3 

48 

614 

FORMAT (1X5HZ0 = , E 1 5 . 8 , 4X5HR0 *,E15.8) 

SU2 3 

49 


ZO-ZI I > 

SU23 

50 


RO=R( J) 

SU2 3 

51 


WRITE (3,614) ZO»RO 

SU2 3 

52 


WRITE (3,8888) M 

SU23 

53 

8888 

FORMAT (1X4HM = ,I4> 

SU2 3 

54 

8051 

CONTINUE 

SU2 3 

55 


GO TO ( 1000, 1000, 1001 ,1010,1100) ,M 

SU2 3 

56 

1001 

IF ( IRARF.EO.l) GO TO 1003 

SU23 

57 


M=PICK2(Z( I) ,R( J),3) 

SU23 

58 


FF=R(J)-RARF2(M+1,2)+(RARF2(M,2)-RARF2(M+1,2I)*(Z( I ) -RARF2( M + l 

, 1 ) ) SU2 3 

59 


l/(RARF2(M, i )-RARF2< M + l, l )) 

SU2 3 

60 


IF ( FF.GT.O. ) GO TO 1003 

SU2 3 

61 


00 8002 K*l,6 

SU23 

62 


L = K + 2 

SU23 

63 

8002 

XMESH2< I , J,K)*RARF( l,L) 

SU2 3 

64 


GO TO 1000 

SU23 

65 

1003 

L= I + 1 

SU23 

66 


N=TEST(Z( L 1 ,R( J) ) 

SJ23 

67 


GO TO ( 1004,1007, 1030,1030,1050) ,N 

SU23 

68 

1004 

M=P I CK 2 ( Z ( I ) ,R( J) , 1 ) 

SU23 

69 


DO 1006 K= 1,8 

SU23 

70 


ANS*TAB2(M,K,i ) + ( TAB2< M+l , K ,1 )-TAB2(M,K, 1 1 1 * t R < J )-T AB2 ( M, 2 , 1 ) ) / ( TASU23 

71 


3/Y 



8005 


902 A 


1006 

1007 


1008 

1009 


IR2(P+l«2*ll~TAB2<M'2f 1) > 



SU2 3 

72 

IF IK.NE.l) GO TO 8005 



SU23 

73 

AN S 1 =ANS 



SU2 3 

74 

GO TO 1006 



SU2 3 

75 

CONTINUF 



SU23 

76 

IF IK.F0.2) GO TO 1006 



SU23 

77 

KX=K— 2 



SU23 

78 

IF < A8SIM J)-RADIUSI .GT.EPS) 

GO TO 9024 

SU23 

79 

IF (K.GT.5.0R.K.LT.4) GO 

TO 

9024 

SU2 3 

80 

ANS-TA82I M+ 1 f K » 1 > 



SU23 

81 

CONTINUE 



SU23 

82 

XMESH2I I ♦J»KX)=AN$+( XHE SH2 ( L 

, J,KX)-ANS»*IZ< I l-ANSl >/(ZU )- ANSI! 

SU23 

83 
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Abstract 


Introduction 


Results from a’ numerical scheme based on the 
method of characteristics are presented for the 
axially symmetric, hypervelocity impact of similar 
materials. The analysis is restricted to the early 
stages of the impact of a right circular cylinder 
on a half space. The resulting rarefaction and 
shock waves produced by the ijnpact are considered 
as discrete wavefronts which divide the impacted 
zone into regions. Numerical diffusion is then 
controlled by requiring that the values of the de- 
pendent variables at a given point in the impacted 
zone to depend on only the calculated values at 
earlier times at points in the same region as the 
point in question. The numerical results give ac- 
curate representations of the stress wave profiles 
(i.e., rarefaction and shock waves) which should be 
useful as inputs for a later stage elastoplastic 
analysis and/or spallation analysis. The effects 
of "numerical diffusion" on the calculated pressure 
and flow fields when the rarefaction wave is not 
considered as discrete is investigated and the 
"diffused" results are compared with the more exact 
analysis. 

Nomenclature 

a = isentropic speed of sound 
e = specific internal energy 
e g = sublimation energy 
h = time step 
P = pressure 
r = radial coordinate 
t = time 

U = radial velocity 
V = axial velocity 
z = axial coordinate 
n = p/p* 

0 = parameter defining a bicharacteristic, 

(0 $ 0 $ 2tt) 
m = n - l 
p = mass density 
p* = ambient density 
<f> = function of r, z, and t 


Most of the existing numerical codes for 
hypervelocity impact calculations are based on 
procedures which allow some smearing of the re- 
sulting frarefaction and shock waves. The present 
analysis of the initial hydrodynamic phase of an 
axially symmetric, hypervelocity impact is based on 
the method of characteristics while treating the 
rarefaction and shock* waves as discrete discontinu- 
ities. The definitiveness of the resulting flow 
field obtained from such an analysis should be use- 
ful as inputs to a subsequent elastoplastic analy- 
sis for studying later stage cratering effects and/ 
or spallation calculations which require rather 
accurate representations of both the peak pressure 
and the incident shock wave profile at reflection. 
The results based on a numerical code using the 
method of characteristics for the impact of a right 
circular aluminum cylinder on an aluminum half- 
space are presented. The impact configuration is 
depicted schematically in Fig. 1. 



Figure 1 Impact configuration 

In order to give some insight into the mecha- 
nism of "numerical diffusion" , an analysis using 
the method of characteristics by not considering 
the rarefaction as discrete is also considered. In 
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doing so, the speed of the release wave from the 
free surface of the projectile and the free surface 
of the target is not controlled. Results from such 
an approximate analysis are compared with the dis- 
crete rarefaction case and the limitations of the 
"diffused" solution are delineated. 

Characteristic Surfaces 

\ 

As described in references 4 and 5, during the 
initial stages of a hypervelocity impact, the mate- 
rial in the impacted zone may be assumed to obey 
the inviscid fluid dynamic equations. For axially 
symmetric impact, these equations may be expressed 
as follows: 


The characteristic surfaces described by Eqs. (7) 
and (8) correspond to two distinct types of charac- 
teristic propagations. Corresponding to Eq. (7), 
the characteristic propagation is described by the 
differential equations of the bicharacteristics 

77 * = U + acos0 , (9) 

at 

% = V + asine , (10) 

dt 

where, 0 $ 0 $ 2 tt. These bicharacteristics de- 
scribe the propagation of pressure , density , or 
velocity disturbances. Corresponding to Eq. (8), 
the characteristic propagation is described by 


Conservation of Mass 


Dp 

Dt 

+ p ( 37 + 

3V 

3z + 

2 > = °. 

(1) 

Conservation of 

Momentum 





DU A 

P 5 F + 

3P 

3r " 

0 , 

(2) 


DV 

3P _ 




P D? + 

3z 

0 , 

(3) 


Conservation of Entropy along a Particle Path 


DP 2 Dp _ 

dt " a Dt” 


0 


(4) 


where , 


JD_ 

Dt 


3 „ 9 „ 3 

= 3t' +U 3r + V 3z 


(5) 


and P is the pressure, p is the density, a is the 
isentropic speed of sound, t is the time, and (r,z) 
and (U,V) are the radial and axial coordinates and 
velocities, respectively. 


Equations (1) to (4) form a system of non- 
linear, hyperbolic, partial differential equations. 
The corresponding characteristic equation for this 
system of equations is: 


0 


D<f> 34> 3<)> 

Dt P 3r P 3z 


3 4 ) 
3r 


0 


D<|> 

P Dt 


0 


3£ 

3z 


0 


0 


D4> 

p d¥ 


= 0 ( 6 ) 


0 

11 

fcl-H 
x) lx) 

(11) 

— = V 
dt 

(12) 


which are the particle path equations and describe 
the propagation of entropy disturbances. 

The set of bicharacteristics from a point, 
with 0 $ 0 < 2 tt, forms the conoid of dependence for 
the point which is at its vertex. The interior of 
the conoid contains all the points whose values of 
U,V,P,p, etc. may influence the corresponding val- 
ues at the point at the vertex. The intersection 
of this conoid and a particular time plane forms 
the domain of dependence of the point at the vertex 
of the conoid and contains all the points whose 
values of U,V,P,p, etc. influence the corresponding 
values at the point at the vertex. A schematic 
representation of these ideas are given In Fig. 2. 



Figure 2 Conoid and domain of dependence 


D4> _2 d 4 ) 

Dt Dt 


0 


Compatibility Conditions 


where 4> = 4> (r,z,t), and surfaces of 4> = constants 
are the characteristic surfaces. 

The solutions of Eq. (6) are given by 


It will not be difficult to demonstrate that 
along a 'bicharacteristic , U,V, and P must satisfy 
the following differential relation in a time in- 
terval dt: 


and 


r \ a 2 2 sva 2 dP + pacos0dU + pasin0dV 

,51, *(|i, (7, 

2 J . . 2a / 9U 3 V n . 

= - pa^dt [(^7) sir0 - (7^- + 7^) sin0cos0 


D4>_ 

Dt 


0 . 


( 8 ) 


+ ( |1) cos 2 e + 


(13) 
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Similarly, along the particle path, the following 
differential expression must be satisfied: 

p 2 de = pdp , (14) 

where e is the specific internal energy. Equations 
(13) and (14) are called the bicharacteristic and 
particle path compatibility conditions, respective- 
ly. 

Equation (14) is essentially the first law of 
thermodynamics expressed along the particle path 

for an isentropic process. This choice of a parti- 
cle path compatibility equation was made in order 
to introduce the internal energy variable. The 
P,p,e variables are related by an equation of state 
of the form, 

P = P(p,e) . (15) 

The particular form of the equation of state used 
in this analysis is that of Tillotson. 6 For alumi- 
num, it can be expressed as follows: 

For p > p., with e > 0 or e $ e , 

K s 


characteristic 0^ with an (t^-h) - time plane at 
which all data has been previously calculated. In 
spite of the fact that the error over each time 
step is of order h 2 , the accumulated errors reduce 
the aggregate solution to the order of h. 

The unknowns in Eq. (19) are P ,U ,V and 

ooo 

therefore unless one (or more) of these values is 
specified, three bicharacteristics are required for 
each calculation. After P ,U ,V are determined, 

the values p and e are obtained with the aid of 
. ° o 

the particle path compatibility condition and the 
equation of state. This procedure is applicable at 
points not on the boundary of the impacted zone, 
(i.e., on the shocks, rarefaction, free surfaces, 
or axis of symmetry). At points on the boundary, 
auxiliary relations are available and consequently, 
fewer independent bicharacteristic conditions are 
required for each calculation. A scheme is also 
used to insure that finite difference relations are 
not written across discontinuities and ’’numerical 
diffusion" across these discontinuities is minimiz- 
ed. The details of the various calculational pro- 
cedures are given in references 4 and 5. 


P = [ 0.5 + i +e /(! 3 n^ 3ep + °- 752u + °- 65p2 ’ 

M S n 1 ( 16 ) 

and for p < p*, with e > e , 

“ s_ 

P = 0 . 5 ep + [ - • L )! 3 ep y, 

1 +e/ (e n z ) 
s 

+ 0 . 752 ue , ' 5 ( 1 ' 1 /n) ]e " 5(1_1/r ' )2 , ( 17 ) 


where , 


Numerical Stability 

The problem of constructing a stable numerical 
procedure for the present analysis is resolved by. 
following certain qualitative guidelines. The 
basic idea is suggested by the stability criterion 
of Courant, Friedrichs, and Lewy, (or the C.F.L. 
Condition). According to this condition, the do- 
main of dependence of the difference equations must 
encompass the domain of dependence of the original 
hyperbolic differential equations for numerical 
stability. The following is a brief account of the 
approach used in this analysis to ascertain numeri- 
cal stability. 


n = p/p* , y = n - l , (18) 

p* = 2.70 gm/cm 3 is the ambient density for alumi- 
num, and e s = 0.03 megabar cm 3 /gm is the sublima- 
tion energy for aluminum. In Eqs. (16) and (17), 

P is expressed in megabars, p in gm/cm 3 , and e in 
megabars cm 3 /gm. 


Numerical Procedure 


The differential expressions, Eqs. (9)-(14), 
are cast in finite difference forms accurate to the 
order of h 2 , where h is the time step. For example, 
the bicharacteristic compatibility equation for a 
particular value of 0 is 


P - P. + p.a. [cos6 . (U - U.) + sin0 . ( V - V.)] 
o l i l io 1 i o 1 


= -P^h [(|£). sin20 i 


,3U 3V. . _ 

(t— + t— ). sm0.cos0. 

3z 3r i i i 


U. 


+ (ff). sin 2 0 . + + 0(h 2 ) , (19) 

o z i i r . 

l 


where the subscript "o” refers to t = t and the 
point where the values of U,V,P,p, etc.°are being 
calculated and the subscript "i" refers to the cor- 
responding values at the intersection of the bi- 


Consider the domain of dependence of the par- 
tial differential equations in the (t Q -h) - time 
plane as illustrated in Fig. 3(a). If the conoid 
of dependence is approximated by the three bi- 
characteristics passing through the triangular 
points (1,2,3), the domain of dependence is des- 
cribed by the triangle of dashed lines connecting 
the three points. Since, for the purpose of at- 
taining numerical convergence, the points (1,2,3) 
must be relatively close to the circular region 
which is the domain of dependence of the differen- 
tial equations, instabilities cannot be avoided. 

To insure numerical stability, the values at points 
(1,2,3) are obtained by interpolation using the 
vaLues at the twelve grid points (circular dots) 
which surround the three original points as shown 
in Fig. 3(b). In doing so, the domain of depend - 




Figure 3 Domains of dependence: (a) without 
interpolation, (b)with interpolation 
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ence of the difference equations is increased to 
the convex hull of dashed lines indicated in Fig. 
3(b). This convex hull should encompass the circu- 
lar domain of the differential equations. Such an 
interpolation scheme seems to be sufficient to in- 
sure the required numerical stability for the pres- 
ent analysis. 


Results and Discussion 


The example chosen in this paper to illustrate 
the results of the characteristic method is the ax- 
ially symmetric impact of an infinitely long cylin- 
drical aluminum projectile with a diameter d Q equal 
to 2.5 cm on an aluminum half space. The initial 
velocity V Q of the projectile is taken to be 7.6 
km/sec and the half space is assumed to be at rest. 
The results of the characteristic method are com- 
pared with the results obtained from the well-known 
M OIL Code” of reference 1. Results from the dis- 
crete rarefaction case is then compared with those 
for a case where the "numerical diffusion” of the 
rarefaction wave is allowed. 

Figure 4 shows the pressure distributions for 
both the "OIL” solution of reference 1 and the 
method of characteristics with discrete rarefaction 
at a time of t = 0.74 usee after impact when the 
rarefaction has not yet propagated near the axis of 
symmetry. The pressure distributions are compared 
by mapping the isobars for P = 1.08, 0.8, 0.5, and 
0.2 megabars (MB). The results of the method of 
characteristics are shown as solid lines and the 
"OIL” distributions as dashed lines. The locations 
of the two shocks and the rarefaction (P = 1.08 MB) 
are quite clearly defined for the characteristic 
method. One difference immediately apparent between 
the two sets of results is that the isobars for the 
"OIL" approach begin and end on the axis of symme- 
try, whereas the isobars for the characteristic 
method begin and end on the projectile and target 
shocks. The difference, of course, comes from the 
smearing of the shock fronts in the "OIL" solution. 
The "OIL" approach predicts additionally two regions 
of pressure higher than the one-dimensional region 
which is bounded by the two shocks and the rarefac- 
tion. The reduction in pressure in the rarefied 
region compares quite favorably for both methods. 
Major differences among the isobars of P = 0.5 and 
0.2 MB obtained from the two methods are noted in 
the region near the original free surface where the 
pressure has been controlled by the characteristic 
method. 

RADIAL COORDINATE (CM) 



efaction) and the "OIL" results. V Q = 7.6 
km/sec, t = 0.74 u sec, d Q = 2.5 cm 


Figure 5 shows the pressure distribution a- 
long the axis of symmetry at a time of t = 1.28 
usee after impact just prior to the actual reflec- 
tion of the rarefaction wave from the axis of sym- 
metry. The dashed curve shows the correct uniform 
pressure distribution based on the discrete rare- 
faction solution. The solid line shows the pres- 
sure distribution predicted by the numerical method 
which allows "diffusion" across the rarefaction 
wave. In the latter case, the pressure along the 
axis is underestimated. The lowest value is ap- 
proximately 60% of the actual value. This drop in 
pressure is due to the fact that the effective 
speed of the rarefaction for the "diffused" case is 
equal to the actual rarefaction speed plus the mesh 
speed (i.e., the rarefaction front travels one ad- 
ditional grid spacing in each time cycle). The 
fact that the pressures are in error by 40% could 
be serious if the target shock wave were to be re- 
flected from a free surface at the back of a target 
with a finite thickness or if these results were to 
be used as inputs for an elastoplastic analysis for 
later stage cratering and subsequent spallation 
calculations . 



Figure 5 Pressure distribution along the axis of 
symmetry. V Q = 7.6 km/sec, t = 1.28 
usee, d Q = 2.5 cm 

Figure 6 shows the pressure distribution a- 
long the axis of symmetry at a later time 
(t = 1.55 usee) after the rarefaction has been re- 



*X|AL COORDINATE (CM) 


Figure 6 Pressure distribution along the axis of 
symmetry. V Q = 7.6 km/sec, t = 1.28 
usee, d Q » 2.5 cm 
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fleeted. Again the dashed curve is that of the 

discrete rarefaction solution and the solid curve 
is the '’diffused" solution. At or near this time 
and for subsequent times, the results of the two 
solutions are very close to each other and the dis- 
crepancies among the results diminish with the in- 
crease of time. 

Figure 7 maps the isobars for the entire flow 
field for both the discrete rarefaction solution 
(dashed curves) and the "dif fused” solution (solid 
curves) at t = 1.28 u sec after impact. It is noted 
that in regions close to the axis of symmetry and 
the rarefaction, there are large discrepancies 
among the numerically calculated pressures using 
the two different methods. In addition, due to the 
premature decay of the projectile shock near the 
projectile free surface, the calculated pressures 
near the target shock close to the free surface 
using the "diffused" scheme are much higher than 
those for the discrete rarefaction solution. This 
effect also causes a slightly higher target shock 
velocity near the free surface. In other regions 
far away from the free surface and the rarefaction 
front, the calculated pressures from the two meth- 
ods are in good agreement . 


radial COORDINATE (CM) 
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Figure 7 Pressure field. V Q = 7.6 km/sec 
t = 1.28 usee, d Q = 2.5 cm 

Figure 8 shows a comparison of the isobars in 
the impacted zone at t = 1.55 usee after impact. 

At this time, the isobars are in close agreement 
throughout the flow field. Nevertheless, some of 
the effects of the "diffused" rarefaction can still 
be observed. For instance, there is a slightly 
higher pressure region predicted by the "diffused" 
results near the target shock close to the axis of 
symmetry . 

Figure 9 compares the velocity vectors for the 
two methods of calculations at t = 1.50 usee after 
impact. For all practical purposes, the results 
are nearly identical. It is apparent that the 
effect of "numerical diffusion" is more important 
in the pressure calculations. 
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Figure 8 Pressure fields. V Q = 7.6 km/sec, 
t = 1.55 usee, d Q = 2.5 cm 
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Figure 9 Velocity vectors. V Q = ^.6 km/sec, 
t = 1.50 usee, d Q = 2.5 cm 

Concluding Remarks 

It may be surmised from the calculated results 
using the method of characteristics that, if the 
rarefaction is not considered as a discrete dis- 
continuity, the pressures for the initial stages of 
an axially symmetric hypervelocity impact may be 
quite different from their actual values before the 
rarefaction is reflected from the axis of symmetry. 
This is particularly true for the pressure distri- 
bution at the axis of symmetry. After the reflec- 
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tion of the rarefaction wave, however, the effect 
of numerical "diffusion” introduced by not treating 
the rarefaction front as a discrete discontinuity 
diminishes. This means that if the pressure fields 
and shock fronts are desired at a time after the 
rarefaction wave has been reflected from the axis 
of symmetry, an approximate procedure of the method 
of characteristics by not treating the rarefaction 
as discrete may be used. Since the computing time 
required for hypervelocity impact calculations 
using the method of characteristics with discrete 
rarefaction and shock fronts is very large, this 
procedure of allowing diffused rarefaction can be 
useful for relatively long impact time calculations 
or spallation analyses with relatively thick target 
plates (compared with the projectile diameter). 
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Abstract— Two classes of closed form solutions of one-dimensional, nonlinear waves in a rate-sensitive, 
elastoplastic material are reported. One class of these solutions is self-similar and the other class consists 
of constant speed propagations. Applications of these solutions to unsteady motions behind propagating 
discontinuities are also considered. 


1. INTRODUCTION 

The purpose of this paper is to discuss two interesting classes of closed form solutions 
of one-dimensional, unsteady motion of a rate-sensitive, elastoplastic material. One 
class of these solutions is self-similar and is deduced from the invariant theorems of 
continuous groups of transformations. This class of unsteady motion is governed by a 
single, first-order, nonlinear, ordinary differential equation of the Riccati type and 
closed form solutions in terms of elementary functions are obtained under special 
circumstances. If the material in consideration possesses the additional property of 
instantaneous linear elasticity [1] under ‘high rate’ of straining, it may be demonstrated 
that one of these self-similar solutions can be used to describe the dispersed nonlinear 
wave motion behind a propagating shockfront into an initially quiescent region. 

The second class of solutions is obtained by searching for one-dimensional wave 
motions with constant speeds of propagation. These solutions are expressible as simple 
quadratures and closed form expressions can be obtained for specific constitutive 
relations. Such solutions represent non-characteristic propagations, i.e. they are not 
propagations of weak discontinuities of arbitrary wave forms. It may be demonstrated, 
using the Poincare-Bendixon theorem, that these solutions, in general, are not periodic. 
Assuming a sub-elastic, constant-speed, propagating discontinuity preceded by an 
elastic precurser with an unloading, relaxation zone, or a constant stress region, the 
nonlinear wave solution with a constant propagation speed equal to that of the dis- 
continuity can be used to describe the ‘unsteady^ motion behind the discontinuity. 

One-dimensional rectilinear motion, in the strict sense, involves not just one spatial 
coordinate but also only one component of stress, strain, and particle velocity. For 
such a type of motion, only a one-dimensional stress-strain or constitutive relation is 
required. Various rate-sensitive, constitutive equations have been proposed in the 

t Permanent address: North Carolina State University. 

$Such an ‘unsteady’ motion, of course, becomes essentially steady for a moving observer following the 
propagating discontinuity. 
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literature and a comprehensive review of this subject can be found in Cristescu[2]. The 
solutions described in this paper are obtained based on a model first proposed by 
Sokolovskii [3, 4]. This model cannot, in general, be used to describe the structure or 
generation of shock waves [5, 6]. In applying the solutions given in this paper to the 
unsteady motions behind propagating shock layers or relaxation zones, additional 
material properties may have to be assumed within these shock or relaxation regions. 

2. MATHEMATICAL FORMULATION 
One-dimensional motion may be described by a scalar deformation field, 

x = x(XJ), (2.1) 

where x is the instantaneous position coordinate at time / of a generic particle whose 
position coordinate at / = 0 was X. The Lagrangian equation of motion and kinematic 
compatibility condition for rectilinear, one-dimensional motion aret 


pdu/dt — dcr/dX. (2.2) 

deldt = duldX , (2.3) 

where a is the longitudinal stress, and 

u = dx/dt , (2.4) 

e = dxldX- 1. (2.5) 


are the particle velocity and linear Lagrangian strain, respectively. The material is 
assumed to be initially unstressed and unstrained with a constant density p. 

In this analysis, the material under consideration will be assumed to follow the 
special constitutive relation for a rate-sensitive, elastoplastic material generalized 
from a model suggested by Sokolovskii [3,4], 

dejdt = du/dX = E~'dcrldt yf {or I cr () — 1 ) l + (o"/cr 0 — 1), (2.6) 

where /(•) is a dimensionless C 1 function with f(rj) > 0 for 77 > 0, l+( ) is the Heavi- 
side function, E is the modulus of elasticity which is assumed to be a constant, cr () is 
the static yield stress, and y is a material constant. Thus, the material is assumed to 
have an elastic range with a constant modulus. If the strain rate is held constant, 
Equation (2.6) may be integrated by simple quadrature^. Typical stress-strain curves 
for de/dt = constant are displayed in Fig. 1. It is seen that the dynamic yield stress is 
rate-sensitive and there are no strain-hardening effects. Equation (2.6) includes the well- 
known models suggested by Cowper and Sy monds [8] , and Perzy na [9] , as special cases. 
It is a special form of a more general constitutive equation suggested by Malvern [10]. 

Equations (2.2) and (2.6) are the basic equations describing the functions, u(X , t ), 
a(X, f), [and e(A\ /)], characterizing the one-dimensional motions to be considered in 
this paper. These equations may be combined into one single, second-order, nonlinear, 
tSeee.g. Courant and Friedrichs [7]. 

tThe authors are grateful to Professor A. C. Eringen for suggesting this. 
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Ee/o 0 -i 

Fig. 1. Typical stress-strain curves for constant strain rates, (a) Vy/A = 1, (b) Vy/A = 2, 

(c) Vy/A = 3, (d) Vy/A = 4, A = de/dt. 

hyperbolic, partial differential equation of the evolution type in dimensionless form as 
follows: 


/^(dV/dJC 2 — d 2 cr/d/ 2 ) = [ l + (o-)d/(cr)/do- + 8 (cr)/(0) ] da/dt. 

( 2.7) 

where 


or(x, t) = — 1 , 

(2.8) 

is the dimensionless overstress. 


x = aX , 

(2.9) 

t = act , 

(2.10) 

c = VE/p, 

(2.11) 

a = (3y VpE/a 0 , 

(2.12) 


8(-) is the Dirac delta functional, and ft > 0 is a dimensionless constant included here 
in the definition of a for convenience. 

Materials described by the constitutive relation given in (2.6) probably cannot 
support shock layers or explain the generation of shockfronts. If a shock layer is dis- 
sipative, then generalized viscoelastic theories and constitutive relations such as those 
considered by Varley and Rogers [6], Coleman and Gurtin[l 1], Dunwoody and Dun- 
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woody [12] and Pipkin [5], or further generalizations of these models, should be used 
to describe it. For propagation in a rod, the shock layer may be dispersive due to 
lateral deformationt instead of due to any dissipative mechanism. Such a shock transi- 
tion may be described in terms of a low frequency, large rate of straining expansion of a 
three-dimensional deformation field similar to that considered by Parker and Varley 
[13]. In applying one of the self-similar motions described in this paper to a nonlinear 
wave motion behind a propagating shockfront, it will be assumed that the rate of 
straining in the shock layer is high enough to allow the material to exhibit instantaneous 
linear elasticity $ [ 1 ]. Thus, across such a shock layer, it will be assumed that 


[c ?] = £[€], (2.13) 

where [\] denotes the jump in value of x across the shock layer, and the value of E 
will be assumed to be a constant and have the same value as the modulus of the elastic 
range of the constitutive relation given by (2.6). 

From the Lagrangian equation of motion (2.2) and the kinematic compatibility 
condition (2.3), two additional jump conditions relating [w], and [e], can be deduced 
formally following a technique suggested by Courant and Friedrichs [7]. The results 
are: 


pt/[w] -F [o=] = 0, (2.14) 

t/[e] + [w] = 0, (2.15) 

where U is the propagation speed of the shockfront. Equations (2.14) and (2.15) can 
also be deduced from physical arguments directly. The jump conditions, (2. 13)-(2. 1 5), 
indicate that the speed of propagation of a shock layer of a material exhibiting instan- 
taneous elasticity is 


\U\ = Ve/p." (2.16) 

which is, in fact, the same as the elastic speed of propagation of small disturbances. 

In applying the constant speed solutions to the ‘unsteady’ motion behind a propagat- 
ing discontinuity which moves at a constant sub-elastic speed, it will be assumed that 
there is an elastic precurser and an unloading, relaxation zone, or a constant stress 
region, ahead of the discontinuity. The details of the unsteady motion of a relaxation 
zone ahead of such a discontinuity may be very complicated and will not be considered 
in this paper. 


3. A CLASS OF SELF-SIMILAR SOLUTIONS 
Cowper and Symonds [8] proposed, in 1 957, a power law, 

f(a) = a 3 * 5 . (3.1) 

tThe authors are indebted to Professor E. Varley for a discussion pertaining to this point. 
fThe range of rate of straining within which materials exhibit instantaneous elasticity varies from one 
material to another. There is usually an upper (and lower) cutoff point in rate of straining above (and below) 
which a material may have to be considered viscoelastic. The authors are indebted to Professor R. S. Rivlin 
for pointing this out to them. 
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Fig. 1. Typical stress-strain curves for constant strain rates, (a) Vy /k= L (b) Vy/k= 2. 
(c) Vy Ik = 3, (d) Vy/£ = 4, A: = Be/dt . 


hyperbolic, partial differential equation of the evolution type in dimensionless form as 
follows: 


Pid'^crldJr —d 2 crldt 2 ) = [ l + (cr)d/(cr)/d<x + 8(cr)/(0) ]dcr/d/. 

(2.7) 

where 


crU, t) = cf/cTo— 1, 

(2.8) 

is the dimensionless overstress. 


x ~ aX, 

(2.9) 

t = act , 

(2.10) 

c = V£/p, 

(2.11) 

a » /3yVpE/cr 0 , 

(2.12) 


8(*) is the Dirac delta functional, and /3 > 0 is a dimensionless constant included here 
in the definition of a for convenience. 

Materials described by the constitutive relation given in (2.6) probably cannot 
support shock layers or explain the generation of shockfronts. If a shock layer is dis- 
sipative, then generalized viscoelastic theories and constitutive relations such as those 
considered by Varley and Rogers [6], Coleman and Gurtin[l 1], Dunwoody and Dun- 
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woody [12] and Pipkin [5], or further generalizations of these models, should be used 
to describe it. For propagation in a rod, the shock layer may be dispersive due to 
lateral deformation! instead of due to any dissipative mechanism. Such a shock transi- 
tion may be described in terms of a low frequency, large rate of straining expansion of a 
three-dimensional deformation field similar to that considered by Parker and Varley 
[13]. In applying one of the self-similar motions described in this paper to a nonlinear 
wave motion behind a propagating shockfront, it will be assumed that the rate of 
straining in the shock layer is high enough to allow the material to exhibit instantaneous 
linear elasticity! [1]. Thus, across such a shock layer, it will be assumed that 

[o=] = £[e], (2.13) 

where [xi denotes the jump in value of \ across the shock layer, and the value of E 
will be assumed to be a constant and have the same value as the modulus of the elastic 
range of the constitutive relation given by (2.6). 

From the Lagrangian equation of motion (2.2) and the kinematic compatibility 
condition (2.3), two additional jump conditions relating [w], and [e], can be deduced 
formally following a technique suggested by Courant and Friedrichs [7]. The results 
are: 


p£/O] + [o=]=0, (2.14) 

C/[€] + [m] = 0, (2.15) 

where U is the propagation speed of the shockfront. Equations (2.14) and (2.15) can 
also be deduced from physical arguments directly. The jump conditions, (2. 1 3 )— (2. 1 5), 
indicate that the speed of propagation of a shock layer of a material exhibiting instan- 
taneous elasticity is 


|t/| = Ve/p. (2.16) 

which is, in fact, the same as the elastic speed of propagation of small disturbances. 

In applying the constant speed solutions to the ‘unsteady’ motion behind a propagat- 
ing discontinuity which moves at a constant sub-elastic speed, it will be assumed that 
there is an elastic precurser and an unloading, relaxation zone, or a constant stress 
region, ahead of the discontinuity. The details of the unsteady motion of a relaxation 
zone ahead of such a discontinuity may be very complicated and will not be considered 
in this paper. 


3. A CLASS OF SELF-SIMILAR SOLUTIONS 
Cowper and Symonds [8] proposed, in 1 957, a power law, 

/V)=cr 3 * * 6 , (3.1) 

tThe authors are indebted to Professor E. Varley for a discussion pertaining to this point. 

$The range of rate of straining within which materials exhibit instantaneous elasticity varies from one 
material to another. There is usually an upper (and lower) cutoff point in rate of straining above (and below) 
which a material may have to be considered viscoelastic. The authors are indebted to Professor R. S. Rivlin 
for pointing this out to them. 
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where 8 > 0 is a dimensionless material constant, to describe the rate-sensitivity of 
perfectly plastic materials. This law seems to be quite adequate in approximating the 
dynamic responses of certain metallic alloys [14. 15] under moderately high rates of 
straining. The material constants, y and 8, for such a material may be determined by 
explosive ring-tests as suggested by Perrone[16]. Recent investigators [17-21] have 
applied this model to impulsively loaded beams, rods, and plates. The class of self- 
similar solutions described in this paper is based on the constitutive relation (2.6) and 
the special form of /(cr) given by (3. 1 ). Under these constitutive assumptions, equation 
(2.7) may be expressed as follows: 

<t>((Txx’ cr h cr\ x,t) = 0, (3.2) 

where 

<t> = (T xx — (Ttt — CT S ~ 1 (TtU{(T), (3.3) 

and subscripts denote partial differentiation. The constant /3 which appeared in the 
definition of a in (2. 1 2) has been replaced by the material constant 8. 

Consider a one-parameter continuous group of transformations defined by 

(*,7\£) = ( bx,b m t,b n a ), (3.4) 

Gxx^tt^t) = (b n ~ 2 cr xx , b n ~ 2m <Jtt, b tl m c r t ) 9 (3.5) 

where b is the parameter, and m,n are constants. It can be shown that for the special 
case of m = l,n = 1/(1 —8), 

(f)(cr xx , cr tt , cr t , or; x, t) = b (l 28)1(1 8) (f>(^ X x^ Syr, Xr, X; X 9 T) , (3.6) 

where it is assumed that 8 # 1. For 8=1, equation (3.2) is linear and the analytical 
solution has been discussed in detail by Malvern [10]. Thus, </> is a constant conformal 
invariant under the group defined by equations (3.4) and (3.5) with m = 1 , and n = 1/ 
(1 —8). According to a theorem proven by Morgan [22], the solution to equation (3.2) 
may be expressed in terms of a function F(£) of an absolute invariant £ of the trans- 
formation group defined by 


(X,T) = (bx,bt). (3.7) 

The function F(g) is an absolute invariant of the transformation group defined by 

(A\7\£) = (bx,bt,b m '- 8) cr). (3.8) 

It will be straightforward to verify that 

£ = tlx. (3.9) 

F(£) =x 1/(6 " 1) o-U, /), (3.10) 


are absolute invariants of the groups defined by equations (3.7) and (3.8), respectively. 
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Thus, there exists a class of self-similar solutions to equation (3.2) of the form 

cr = * 1/( i“ 6 >F(f), (3.11) 


where £ is given by (3.9). 

Substituting equation (3.1 1) into equation (3.2) and using equation (3.3), a non- 
linear, second-order ordinary differential equation results. For a > 0, this equation 
is expressible as follows: 

(£*-l)F"- {[28/(1 -8)]{+F*-'}F' 4- [8/(1— 8) 2 ]F = 0, (3.12) 

where prime denotes differentiation. 

For the special case of 8 = 2, f >0. equation (3.12) is immediately integrable to 
the following Riccati equation: 

2(f -1)F' + 4£F-F 2 = 4/C, (3.13) 

where K is an arbitrary constant. This equation may be converted into a linear, second- 
order, ordinary differential equation by the following transformation: 

(f 2 -l) r KU) = Exp[-| J e (3.14) 

2z = i+l. (3.15) 

The result is: 

z(l-z)V"+2(l+r)(l-2z)V'-(2r-K)V = 0, (3.16) 

where r satisfies the quadratic equation, 

4r + 4/*+F = 0. (3.17) 

Equation (3. 1 6) has three regular singular points at z = 0, 1 , and oo. The solutions to 
this equation are expressible in terms of hypergeometric functions. For £ > 1 , the 
appropriate general solution to (3. 1 6) is, in the usual notation, 

V(z) = Cz" 2r “ 3 2 F 1 [2rH-3, 2,4; 1/z], (3.18) 

where C is an arbitrary constant. Thus, from equation (3.14), the corresponding 
expression for F(f) is 


F(£) = 6(f — 1) — 4r+ 2(2rT3) 


(f — 1 ) 2 FiT2r-h4, 3, 5; 2/(£+ 1 ) ] 
(f+l) 2 / 7 1 [2r+3,2,4:2/(f+l)]' 


(3.19) 


The expression (3.19) for F(f) assumes some particularly simple forms in terms of 
elementary functions for special values of K. As examples, typical expressions for 
F(£) and cr(x, t) for two different values of K are listed below: 
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K = 0, (i.e. r=0 , or— 1) 

F(0 = 8{2£+ (e- 1) In [(f- !)/(£+ D] + l)}" 1 . (3.20) 

cr(x, /) = 8 jc{2 xt+ (t 2 —x 2 ) In [ (/ — jc)/ (/ H- jc) ] + A x (t 2 — x 2 )}~ 1 . (3.21 ) 

K = — 5, (i.e. r = 7/2 or —3/2) 

F(f)*6(l+y«rf+?)/(^ 2 +3f-f), (3.22) 

cr(jt, /) = 6 (jt 2 4-^2^ + ^ 2 )/(^ 2 ^ 3 + 3jc 2 /“/ 3 ). (3.23) 

In these expressions, /I, and/f 2 are arbitrary constants. 


It is interesting to note that the solution given by (3.21) is invariant under the trans- 
lation defined by (x\ t') = (x+a, t + a), where a is an arbitrary constant. This property 
will be utilized in Section 5 to derive a closed form solution of a self-similar, unsteady, 
dispersed, nonlinear wave motion behind a constant ‘elastic-speed’ shockfront propa- 
gating into an initially quiescent region. 

4. NONLINEAR WAVES WITH CONSTANT SPEEDS 
Equation (2.7) is a nonlinear, hyperbolic differential equation of the evolution 
type. The characteristic speeds related to this equation are given by. 


D ± XIDt = ±c, 

(4.1) 

D+x/Dt = ± 1, 

(4.2) 


where D ± (*)/Dfand D ± ()/Dr denote differentiation along the characteristics. 

Due to the presence of the evolution or dissipative term, [l + (cr)d/(cr)/dcr-f 6 (<t)/(0)]- 
dcr/dt , in equation (2.7), it is expected that, in the plastic range, the material can also 
support dissipative, dispersive waves in addition to the characteristic propagations of 
discontinuities given by equation (4.1) or (4.2). To demonstrate the existence of non- 
characteristic propagations, a class of constant speed solutions to equation (2.7) is 
considered in this section. This class of solutions is obtained by searching for expres- 
sions of the form: 


(r(x, t ) = #($), (4.3) 

where 

s = ct — x , (4.4) 

and c = constant determines the speed of propagation. 

Substituting equation (4.3) into equation (2.7), a nonlinear, second-order, ordinary 
differential equation results: 

0(1- c 2 )g " = cl U {g)f ( g ) + 8(g)/(0)]g\ (4.5) 


where primes denote differentiation. This equation can be integrated once immediately 
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to yield. 


/3(1 — c 2 )g' = cl + (g)f(g) + A, (4.6) 

where A is an arbitrary constant. Actually, the fact that equation (4.5) can be integrated 
once in closed form is not due to the special choice of the constitutive equation, (2.6), 
since, by assuming solutions of constant speeds of propagation, equation (2.2) can be 
integrated at once without making any additional assumptions. By comparing the 
expression (4.6) with the basic equations, (2.2) and (2.6), it is easily demonstrated that 
A = 0. Thus, 


/8(1 -c 2 )g' = cl + (g)f(g), (4.7) 

for constant speeds of propagation. 

If* < 0, then equation (4.7) becomes 

( 1 — c 2 )g’ = 0. (4.8) 

Except for the trivial case of g = constant, equation (4.8) requires that c = ± 1 , which 
of course is the elastic speed of propagation. For g > 0, equation (4.7) requires that 

(i) c 2 < l,for ( g'/c ) > 0, (4.9) 

(ii) c 2 > l,for (g'/c) < 0. (4.10) 


Thus, for the physically more meaningful case c 2 < 1, the overstress may increase or 
decrease with 5 depending on whether c > 0 or < 0. Equations (4.9) and (4.10) also 
indicate that if solutions for g > 0 exist, the waves represented by these solutions are 
not characteristic propagations. t 

On setting h = g', equation (4.5) for g > 0 may be written as 


W_ 

g 9 


c 

00-C 2 ) 


/'(*). 


(4.11) 


Since f(g) is a C 1 function, equation (4.1 1) does not have any singular points. Thus, 
according to the Poincare-Bendixon theorem, it may be concluded that equation (4. 1 1 ), 
in general, does not possess periodic solutions. 

Forg > 0, equation (4.7) may be integrated, in general, by quadrature as follows: 

5 = [/SU-a/c] J fl /-‘(0dC + C', (4.12) 

where C’ is an arbitrary constant. 

Perzyna[9] in 1963, suggested two interesting expressions for /(£). In slightly 
generalized forms, these expressions are given as follows: 

tin fact, these waves are similar to the so-called solitary waves which are constant-speed, nonlinear 
propagations of special wave forms. The authors are indebted to Professor G. S. S. Ludford for pointing 
this out to them. 
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(i )/({) = 2 <*«?. (4-13) 

1=0 

mm) = b 0 +i ^(Expf-D, (4.i4) 

z=i 

where a,, b t are constants. Expression (i) or equation (4. 1 3) includes the model/(£) = 
suggested by Cowper and Symonds[8] as a special case. For F(Q = £ 6 , and 8/1, 
equation (4. 1 2) becomes. 


5 — 5! = 


sq-c 2 ) 

q-8)c 


6 -gl 6 ), 


(4.15) 


where = g(s t ), s x is a constant, and (3 has been chosen as 8. 

Another simple result is obtained for the constitutive relation (ii) or equation (4. 14) 
with L— 1 . The integrated expression is 


s — 


(1-c 2 ) 

c 




(4.16) 


where, again, gj = g(^ x ), 5 , is a constant, and /3 has been chosen as b v 

It is of interest to note that for the constitutive relation (i), or equation (4.13), 
/ _1 (£) may be expressed in the form: 


r i (0=S **(0^ + 0*)-*+ 2 (dpt+ep)(Pi? + 2p 2 t + fa)- 


(4.17) 


k=\ 


P= 1 


where a„ a 2 , ^ jS 2 , )S 3 , c fc , d p , and e p are real constants, with Thus, the 

integral in equation (4. 12) can always be evaluated in closed form in terms of elementary 
functions. 

5. NONLINEAR WAVE MOTION BEHIND PROPAGATING DISCONTINUITIES 
5. 1 Self-similar solution behind a constant-speed shockfront 

Consider a one-dimensional shockfront propagating at some speed U(> 0) into an 
initially quiescent one-dimensional region (jc ^ 0). As it had been remarked earlier, if 
the range of the rate of straining within the shock layer renders the material to exhibit 
instantaneous linear elasticity, then the shockfront will propagate at a constant speed, 

U = Ve/p, ( 5 . 1 ) 

where E is the instantaneous modulus of elasticity. If the value of E is chosen to be the 
same as the modulus of the elastic range of the constitutive equation, (2.6), then the 
shock speed has the same value as the characteristic speed D+X/Dt given by equation 
(4. 1 ). Under such an assumption, the values of u and a immediately behind the shock 
layer must satisfy the characteristic compatibility condition [10]: 

da — pc du = — Eyf(a/a 0 — 1 ) l + (<x/cr 0 — 1) df, (5.2) 

where c = U = V£/p. 
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The values of w, o% and e, immediately behind the shock layer must also satisfy the 
jump conditions given by equations (2.13) to (2.15). Since w, cf = 0 in the quiescent 
region in front of the shock layer, equation (2. 14) requires that, 

a = — pUu = — pcu, (5.3) 

immediately behind the shock layer. Combining equations (5.2) and (5.3), the following 
differential equation results: 


2/3do- = —f(o-) l + (cr) d/, (5.4) 

where as before, a = (al(T 0 —\) and / = act with a = fiyVpElo- 0 . Equation (5.4) 
indicates that, if cr > 0, then the overstress immediately behind the shockfront always 
attenuates with time along the shock. 

Assuming that cr > 0 behind the shockfront, equation (5.4) can be integrated by 
quadrature as follows: 


t = 2/3 d£+C", (5.5) 

where the integral is identical to that of equation (4.12). Thus, closed-form solutions 
of equation (5.5) are possible for special constitutive assumptions. For /(£) = with 
8# 1 , equation (5.5) becomes 

t= [28/(1 — 8)] (o’! -6 — cr 1-8 ), (5.6) 

where = o-(0), and (3 has been chosen as 8. Therefore, the overstress immediately 
behind the shock attenuates monotonically with time along the shockfront from a = cr x 
at / = 0 to or = 0 at t = <*. 

It is interesting to note that for 8 = 2, equation (5.6) can be satisfied by one of the 
self-similar solutions given in Section 3: 

8cr -1 = (* + a) [2 t>+ (tj 2 — 1 ){/!, + In [(t) - 1)/(tj+ 1 )]}], (5.7) 

where r) = (t T a)l(x + a), and a,A\ are constants. To satisfy the compatibility condition 
(5.6) for 8=2, the constant a in (5.7) must be chosen as follows: 

a = 4/crj. (5.8) 

Therefore, the dimensionless overstress cr(x , t) behind the shockfront is given by, 


= 8/[(f + 4/o-,){2+ l/^j + ln (^j)]}] , 


and the stress boundary condition at x = 0 is, 

or(0, /) = 8/ [l(t + 4/cr, ) + (2t + cr,/ 2 /4) {A x - In [1 + 8/ (cr,/) ]} ] . 
The behavior of this function for various values of A , is shown in Fig. 2. 


(5.9) 


(5.10) 
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Fig. 2. Variation of cr/cr, with oy/4 at X = 0. Self-similar solution (8 = 2). (a) A t — In 2, (b) 

A x = In 4. (cM, = In 8. 


In dimensional forms, the resulting expressions for a(X< I) , u{X , t) , and e(A\ t) for 
this case are given as follows: 

a = oVcr 0 — 1 = [AccrJ ( Ey ) ] ( X + ct 0 ) [2c( X + ct 0 ) (f + t a ) — [c 2 t(t + 2t 0 ) 

-X(X+2ct 0 )]{ln[(cI+X+2ct 0 )l(ct-X)] + B}]-', (5.11) 

u — (o-o/p) [o-(t + t 0 )l(X+ct 0 ) + c _l ], (5.12) 

e= (o- 0 /p)[cr(i+to) 2 KX+ct 0 ) 2 + c- 2 ], (5.13) 

where 

r 0 = 2a- 0 l(y<T,E), (5.14) 

and B is a constant. The behavior of the functions w(0, t) and c(0, t) for various values 
of A , are indicated in Figs. 3 and 4. It is of interest to note that (5.13) yields a permanent 
strain e p given by 


6p = lim c = (cr 0 /£ )[(4ccr 0 IA l yE))(X + ct 0 )~' + 1]. (5.15) 

l~* * 

Typical distributions of the permanent strain are shown in Fig. 5. 

5.2. Constant speed solution behind an elastic precurser 

Duvall [23] suggested that the one-dimensional, unsteady motion in a semi-infinite 
(jc ^ 0), rate-sensitive, elastoplastic region generated by a continuously applied load 
at its boundary (x = 0) may eventually consist of an elastic precurser propagating into 
an initially quiescent region, an unloading, relaxation zone, and a sub-elastic, constant- 
speed, nonlinear wave motion as depicted in Fig. 6. After a reasonable length of time, 
the elastic precurser will be far ahead of the leading wave of the constant speed region 
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Fig. 3. Variation of — [pcw/o- 0 + 1 ]/cr, with oy/4 at X = 0. Self-similar solution (8 = 2). (a M, = 

In 2. (bM, = In 4, (c)/4, = In 8. 



Fig. 4. Variation of [pc 2 €/o- 0 — 1 ]/cr, with cr,//4 at X = 0. Self-similar solution (8 = 2). (aM, = In 2, 

(b) /I , = In 4, (c) /I , = In 8. 


and the boundary of x = 0 will be far behind it. Relative to an observer moving with the 
leading wave of the constant speed region, the unsteady motion behind the leading wave 
becomes essentially steady. 

Any of the constant-speed, nonlinear wave solutions described by equation (4.12) 
in section 4 with c < 1 may be considered as a constant-speed portion of such an 
‘unsteady’ motion. If the overstress on the leading wave s = s l is O’! > 0, then the 
quadrature expression, (4. 1 2), becomes, 

S — s t = [0(1 — c*)/c] h /-*(£) d£, (5.16) 

where s = ct—x, and c < 1. From equation (5.16), the stress boundary condition 
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X/Ct<> 


Fig. 5. Typical distributions of the permanent strain. Self-similar solution (8 = 2). (a)/l, = In 2, 

(bM, = In 4, (c )/t, = In 8. 


a 



quiescent region, (2) elastic precursor. (3) relaxation zone. (4) sub-elastic, constant speed region. 


required to maintain the constant-speed motion can be evaluated in a straightforward 
manner. 

It is of interest to note that, if the initial rate of loading of the applied stress at the 
boundary is not too high such that the time required to raise the stress a from zero to 
the value of the static yield stress a 0 is much longer than the pertinent characteristic 
relaxation time of the medium, then a complete description of a possible non-linear 
wave motion for a continuously loading boundary may be constructed exactly. Figure 7 
is a schematic representation of such a motion. It consists of four solution regions 
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loading boundary at X = 0. 

separated by three discontinuities described as follows: 

( 1 ) Solution regions 

/?, : the undisturbed region, TT = 0 

/? 2 : the elastic region, TT < a 0 

R 3 : the constant stress region, TT = cr 0 

R 4 : the constant speed solution region, a > cr 0 . 

(2) Discontinuities 

S the leading elastic wave 
S 2 : the trailing elastic wave 
5 3 : the leading constant speed wave. 

Such an unsteady motion may be generated by a monotonically increasing stress 
boundary condition. The manner in which the stress varies at the boundary in the 
elastic range can be quite arbitrary (so long as the rate of loading is small enough so 
that there will be no dynamic overstressing in the elastic precurser) and has been chosen 
as a linear function of t in Fig. 7 for simplicity, while the rate of stressing beyond the 
static yield stress must follow the expression given in equation (4. 1 2) or the differential 
equation, (4.7). It is clear from equation (4.7) that nontrivial solutions in R 4 can be 
generated from a leading wave S 3 on which the stress is TT = 0 only if /( 0) > 0. The 
value of /( 0) can be arbitrarily small. Alternatively, if /( 0) = 0 for a specific constitutive 
relation, a solution such as the one depicted by Fig. 7 can still be generated by viewing 
S 3 as a small discontinuity in the value of crsuch that the overstress jumps across this 
‘plastic shock’ from zero to some small constant positive value o-, < 1. The jump in cr 
from 0 to cr, at the boundary of X = 0 may be viewed as the result of a very fast rate 
of loading r in a small interval of time At near t = t 0 such that lim (rAf) = cr, = ( 1 -b a-, )or 0 

A/' — o 

and 0 < o-, ^ 1. The fact that TT = o- 0 in R 3 is an admissible solution can be deduced 
immediately from equation (2.7). 
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Resume — Deux classes de solutions du type ferme d’ondes non-lineaires a une dimension, dans un materiau 
elasto-plastique sensible ala vitesse sont presentees. Une classe de ces solutions est auto-semblable et 
1’autre classe consiste en des propagations a vitesse constante. Des applications de ces solutions a des mouve- 
ments instables en arriere de la propagation de discontinues sont egalement considerees. 

Zusammenfassung-Zwei Klassen von Losungen geschlossener Form von eindimensionalen, nicht-linearen 
Wellen in einem ratenempfindlichen elestoplastischen Stoffe werden mitgeteilt. Eine Klasse dieser Losungen 
ist selbst-ahnlich und die andere Klasse besteht aus konstanten Geschwindigkeitsfortpflanzungen. Anwen- 
dungen dieser Losungen auf unstetige Bewegungen hinter sich fortpflanzenden Diskontinuitaten werden 
auch untersucht. 

Sommario — Si tratta di una relazione su due classi di soluzioni di forma chiusa di onde monodimensionali e 
non Iineari in un materiale elastoplastico e sensibile al ritmo. Una classe di queste soluzioni e autosimilare e 
1'altra consiste in propagazioni a velocita constante. Si prendono anche in considerazione le applicazioni di 
queste soluzioni ai movimenti instabili dietro le discontinuity di propagazione. 

AocTpaKT — ycTaHOBiieHbi nBa KJiacca pemeHHH 3aMKHyToro Bwaa jajin ojaHOMepHbix HejiHHeMHbix 
BOJ1H B 3JiaCTOnJiaCTHHeCKHM MaTepwa/ie HyBCTBHTe/IbHOM K CKOpOCTH. OflHH KJiaCC 3THX pemeHHH 
— caMonojio6HbiM, a npyron coctoht hi pacnpocTpaHeHHft nocTOAHHOH ckopocth. PaccMOTpeHbi 
h npHMeHeHHH 3 th peiueHHfi k HecTauHOHapHbiM nBH>KeHHflM 3a pacnpocTpaHflioinHecb pa3pbiBbi. 
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Curved Characteristics Behind Blast Waves 
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Exact solutions, expressed in closed form in terms of elementary functions, are presented for the three 
sets of curved characteristics behind a self-similar, strong blast wave. 


Blast waves are produced in gaseous media due to the 
sudden deposition of large amounts of energy in 
relatively small regions. The propagation of a point- 
source blast wave into an ideal gas, whose initial 
pressure is assumed to be negligibly low, is known to be 
self-similar. This property can be deduced using either 
dimensional arguments 1 or invariant theorems of con- 
tinuous groups of transformations . 2 Closed form 
solutions describing the flow variables in the nonisen- 
tropic region behind such a blast wave in n— 1, 2, 3 
dimensions were obtained independently by von 
Neumann 3 and Sedov . 4 The reflection of strong blast 
waves was discussed in an earlier paper 5 by the authors. 

It is known that the basic equations governing the 
nonisentropic flow behind a propagating blast wave 
admit three distinct characteristic directions given by 

dr 

- =u, u±a } ( 1 ) 

where r is the radial distance from the point of ex- 
plosion, t is the elapsed time, u is the velocity, and a 
is the isentropic speed of sound. The first characteristic 
direction coincides with the local particle velocity and 
the family of characteristics is, therefore, composed of 
particle lines. This direction corresponds to the speed 
of propagation of entropy disturbances. The other two 
characteristic directions correspond to the local speeds 
of propagation of pressure, density, or velocity dis- 
turbances. The purpose of this note is to report the 
interesting result that these three families of curved 
characteristics can also be represented in closed form, 
and remarkably, still in terms of elementary functions. 

First, consider the («) characteristics or particle 
lines. According to its definition and the self-similar 
solution of Ref. 5, it may be easily deduced that along 


a (u) characteristic, 

dr/dt= ( 2 +tt) UHyW/2, (2) 

where 

U= l2K n /(2+n) ](£o/po) (3) 

is the shock speed, y(d) is given by Eq. (5) of Ref. 5, 
Il = ut/r, E 0 is the energy released per unit area for a 
planar wave, per unit length for a cylindrical wave, and 
the total energy released for a spherical wave, p 0 is the 
initial density, and K n is determined by the condition of 
conservation of total energy. 

But, from the definition of the similarity parameter 
and the expression for the shock radius of Ref. 5, it can 
be shown that, in general, 

dr/dt— /<L n (E 0 /po) 1/(2+n) ^ n/(2+n) [2y/(2+n) +/ dy/ df\. 

(4) 

Therefore, from Eq. (5) of Ref. 5 and Eqs. (2) -(4) , it is 
found that, 

d\ny di 2 

nt ~ ~dT <J-[2/(2+«)]’ () 

along a particle line, where, 

d Iny ( 7 — 1)^ 2 /2+[t2— 2/(2+«)X^ — 2/y(2-\-n)~\ 

= 1l[2/y(2+n) -Aj_(2-n+ny)ll/2- 1 ] ’ 

( 6 ) 

and 7 is the adiabatic index. Thus, Eq. (5) can be 
integrated in terms of elementary functions. The result 
is 

A 2 /y)^~ (7) 

where 
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a=Ai(A2-A l - l )-H(Ar 1 -A i /y)-**(Ar l -Ar 1 )- fit , 

ft* ( 2 y+n- 2 )[n(y- 2 )lr%, 

02 =ny( 2 -\-n) ( 2 —y ) (y— l)£ 2 ( 2 ny-l- 2 y— w+2) 

X (2 — n— 2y)+2ny(2— y) (w7+4) + 2(7+l) (2 +n) 

X {ny 2 — 2ny+n+2y- 2) J* 

ft= (2+w) («7 2 — 2«7+«+27— 2)[«(2— 7) 

X (n T — »+2)]“ 1 /3 2 — 1, (8) 

t=t/to is a dimensionless time normalized with respect 
to some convenient time scale / 0 , and the A ’s are given 
by Eqs. (6) of Ref. 5. 

To complete the solution for the particle lines, an 
expression relating (r, /, A) is obtained from Eqs. (2) 
and (5) of Ref. 5. In dimensionless form, this expression 
becomes, 

f= (Ait)' - A 'tA z (yA/A 2 - 1)>« 

XlA 1 (l-A b A)/(A 1 -A b )^- A n 2 ^ 2+ n) ) (9) 

where r=r/R(t 0 ). Equations (8) and (9) form the 
closed form parametric solution for the family of ( u ) 
characteristics or particle lines behind a self-similar 
blast wave. 

For the (w=ta) characteristics, we have 



= [^/(7+l)]{2^i#y(42) 

±[27(7-1 (10) 

where gWy h(A}, and yW are given by Eqs. (4) 
and (5) of Ref. 5, and the shock speed U by Eq. (3). 
Combining with Eq. (4) and after considerable manipu- 
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Fig. 1. Curved characteristics behind a strong blast wave for 
n = 3, 7 = 5/3. 


lation, it is found that 

d\nt=G(A) dA, (11) 

where, 

G(A) = ( d Iny/dA) {[#— 2 /( 2 +«)] 

±[y(y-l){2-2A-nA)/2{2yA+nyA-2)J' 2 A}- 1 . 

( 12 ) 

The expression d \ny/dA in GW is known and given by 
Eq. (6). Therefore, GW ma Y be reduced to an alge- 
braic function involving square roots of second degree 
polynomials of A as radicals. This means that Eq. 
(11) can be integrated in terms of elementary, albeit 
transcendental, functions. The results are 

\ni=K ± +ln | A b A/(\-A b A) | ±(w// 1 ' 2 ) 

Xsin _1 {[// (A{~ l —A)—k~\/ (£ 2 — /) 1/2 (, (13) 

where, 

*=^ 6 -‘-( 7 +l)[7(2+n)]-S 

l=/l 5 - 2 -2^r 1 (7+l)[T(2+»)]- 1 +4[7(2+ w )2]-‘, 

m=-^5-'[(7-l)/2] l/2 . (14) 

Equation (13) and the parametric expression for 
(r, t y A) given by Eq. (9) form the closed form para- 
metric solutions for the two families of (u±a) char- 
acteristics in the dimensionless r-t plane. The constant 
K± in Eq. (13) must be evaluated for each character- 
istic from a set of known values of ( r, t, A ) . 

Figure 1 displays a typical set of solution curves ex- 
pressing the dimensionless time t as functions of the 
dimensionless distance r for w = 3 and 7 = f. The termi- 
nating curve A is the path of the front of the blast wave. 
Behind A, there are three families of characteristics: 
(1) The solid curves are the W characteristics or 
particle lines; (2) the dashed curves are the («+a) 
characteristics; and (3) the dot-dashed curves are the 
{u— a) characteristics. 
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Recently, we have been extending our analysis 1 of 
sound propagation in dissociative, radiative media to 
include the effects of scattering. It is of interest to note 
that the set of pertinent integrodifferential equations 
can also be solved exactly using the singular eigen- 
function expansion technique. For the special case of 
an ideal, grey, scattering gas, our resulting integral 
equation for the elementary solutions (in terms of the 
notations of Cheng and Leonard 2 ) becomes 


(i- ^)^.(m) = I{[|(p;c)]- 1 +c} £*.00 <V, 


with 


(i) 


(pH- I/?) (1— c) 2 


and 


t2 = _ 

(1— c)+ifi 

where c denotes the single scattering albedo which is the 
ratio of the scattering coefficient to the extinction 
coefficient. 

It can be shown that Eq. (1) admits both discrete 
eigenvalues and a continuous spectrum. The discrete 
eigenvalues are determined by the dispersion relation 


A(p) = 1— KBup) {[|(p; c)] -1 +c) f — ^ — =0, (2) 

J - 1 Buy — n 


which for c=0 corresponds to Eq. (11) of Ref. 2. Using 
the argument principle we are able to show that Eq. (2) 
admits either two or four discrete roots in plus-minus 
complex pairs. In Figs. 1 and 2 we present the discrete 
eigenvalues of v 0 and v\ for Bo (Boltzmann number) = 
3.23, 7=1.4, and c=0.2. We note that, similar to the 
results of Cheng and Leonard, there exists a frequency 
cutoff of the second pair of roots ±v\ below a critical 
Bouguer number, Bu^0.08161. 

We find that it is possible to obtain explicit expres- 
sions for the eigenroots of the transcendental equation 
(2). For example, to determine the explicit expressions 
for the four roots for c=0 with Bu>Bui=0.1107, we 
merely calculate A(z) and X(±z) at two arbitrary 
values of z=zi ,2 (preferably along the imaginary axis) 
according to Eqs. (12) and (26) of Ref. 2. Equation 
(34) of Ref. 2 then provides a pair of coupled poly- 
nomial equations for v 0 and v\, 


W-tf) W-*< 2 ) = 


A(»«)(g-«i»)i;i+ (i/»n 

X(2.)X(- Z< ) 


for i= 1 and 2. (3) 


Equations (3) can be solved readily to yield the desired 
explicit expressions for ±^0 and ±v\. Results of some 
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Table I. Discrete eigenvalues for Bu=l/6, Bo = 3.23, 7=1-4, 
and c — 0. 



a 

b 

c 

Revo 

0.07738627380 

0.07738629373 

0.07738 

Imvo 

-0.9372360013 

-0.9372359958 

-0.9372 

Revi 

4.860766870 

4.860766867 

4.860 

Imv! 

-0.7599477400 

-0.7599477363 

-0.7599 

a Calculated 

using a bisection 

method where the 

roots are 


determined by simultaneous sign changes of the real and imaginary 
parts of A (z). 

b Calculated using the explicit expressions. 
c Values provided by P. Cheng. 

sample calculations of the discrete eigenvalues based on 
this method have been compared with those obtained 
using the more conventional numerical schemes in 
Table I. In general, we are able to obtain an accuracy 


up to eight significant figures using the explicit ex- 
pressions. 
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his assistance and for providing us with the numerical 
values quoted in Table I. 
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explicit scheme. 
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Abstract — The method of elementary solutions is employed to solve two coupled integrodifferential equations 
sufficient for determining temperature-density effects in a linearized BGK model in the kinetic theory of 
gases. 

Full-range completeness and orthogonality theorems are proved for the developed normal modes and the 
infinite-medium Green's function is constructed as an illustration of the full-range formalism. 

The appropriate homogeneous matrix Riemann problem is discussed, and half-range completeness and 
orthogonality theorems are proved for a certain subset of the normal modes. The required existence and 
uniqueness theorems relevant to the H matrix, basic to the half-range analysis, are proved, and an accurate 
and efficient computational method is discussed. The half-space temperature-slip problem is solved analyti- 
cally, and a highly accurate value of the temperature-slip coefficient is reported. 


1. INTRODUCTION 

There exists in the kinetic theory of gases a class of one-dimensional problems for 
which the transverse momentum and heat-transfer effects can be separated by project- 
ing the basic kinetic equation describing the particle distribution function onto certain 
properly chosen directions in a Hilbert space. The resulting expression describing the 
heat-transfer and compressibility effects is a vector integrodifferential equation with a 
matrix kernel similar in form to one studied previously by Bond and Siewert[4] and 
Burniston and Siewert[5] in connection with the scattering of polarized light. It can be 
shown that such a vector integrodifferential equation admits a general solution similar 
to that suggested by Case [7] for scalar transport problems and applied by 
Cercignani[12] to kinetic equations. 

We develop in this paper the elementary solutions to the vector integrodifferential 
equation basic to a linearized, constant collision frequency (BGK) model suggested by 
Bhatnagar et al.[ 3] and Welander [29]. The elementary solutions, some of which are 
generalized functions! 14], can be shown to possess rather general full-range and half- 
range completeness and orthogonality properties. The expansion (or completeness) 
theorems are proved by reducing a system of singular integral equations to an equival- 
ent matrix Riemann problem and subsequently making use of the theory of 
Mandzavidze and Hvedelidze[20] and Muskhelish vili [21] to establish the solubility of 
the resulting equations. 


■^Present Address: Bettis Atomic Power Laboratory, Westinghouse Electric Corporation, Pittsburgh, 
Pennsylvania 15122, U.S.A. 

tPermanent Address: Riddick Laboratories, North Carolina State University, Raleigh, North Carolina 

27607, U.S.A. 
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As an application of our established analysis, we construct in this paper the infinite- 
medium Green's function useful for developing particular solutions to the basic trans- 
port equation. We also make use of the half-range expansion theorem to solve the 
notoriously difficult temperature slip problem considered previously [2, 19,23,28,29] 
by approximate methods. Our solution permits an accurate computation of the ‘tem- 
perature slip coefficient' which may be used to evaluate the merits of approximate 
techniques. 


2. THE KINETIC MODEL AND LINEARIZATION 
Basically, the BGK model is constructed by replacing the collision integral in the 
Boltzmann equation by a more tractable relaxation term: we therefore write 


\^dr + U u ‘ = u ' u ’ 


(2.1) 


where /( y, u, r) is the particle distribution function, y is the position vector, u is the 
particle velocity, r is the time, and v is a characteristic collision frequency. To ensure 
that the model conserves particles, momentum and energy, we require that 

J [/( y, u, r) - /( y, u, r)]U d 3 u = 0, (2.2) 

where the integration is to be taken over all velocity space and U is a five-element vec- 
tor with components 1, u t , u 2 , u iy and u \ the collisional invariants. Here u a , a = 1, 2, 
and 3, and u are respectively the components and magnitude of u. The invariance re- 
quirements given by equation (2.2) can be satisfied by choosing 


/( y, u, t) 


= n(y, t)|j 


m 


irkT(y, 



m |u — q(y, t)H 

2fcT(y, r) J' 


(2.3) 


the local Maxwellian distribution. Here m is the particle mass and k is the Boltzmann 
constant. In addition 


n(y, t) 

f 

1 

n(y, T)q(y, r) 
_3n(y, r) kT( y, t)_ 

= /( y, u. t) 

u 

_m |u — q(y, t)| 2 . 


defines the local number density a? (y, t), the fluid velocity q(y, r), and the absolute 
temperature T(y, t). 

It is not difficult to demonstrate that the model given by equations (2.1), (2.3), and 
(2.4) admits an H theorem, such that 

J f( u, r) In /( u, r) d 3 w 0, (2.5) 

for spatially uniform conditions. Thus the model possesses many of the important prop- 
erties of the full Boltzmann equation. 

Because of equation (2.4), the model is described by a nonlinear functional equa- 
tion; however, we consider circumstances for which the particle distribution function 
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/( y, u, r) differs only slightly from an initial Maxwellian distribution / 0 (u) characterized 
by a set of constant initial values of the number density n 0 , fluid velocity q ( >, and 
temperature T 0 . If we now write 



/(y, u, t) = / 0 (u) + /,( y, u, t). 

(2.6) 

and truncate /( y, u, r) at the linear terms in a Taylor series expansion about / 0 , we find 
that equation (2.1) can be approximated by 


^ + (c + v)- V+ 1 Jfi(x,c, t) = J 

h(x, c\ t)K(c' :c)e C 'd 3 c', 

(2.7) 

with 

K(c':c) = -^[l+2c-c' + 

IT L 

K'-tX'-'D} 

(2.8) 

and where 

( m V ' 2 

x \2kTo) y ’ 

t = VT, 

(2.9a,b) 


c = {ikr) ,0 <1 " ) ’ 

( ™ ^ ,,2 
V = \2kTo) qi ” 

(2.10a,b) 

and 

/o(c)/f(X, C, t) = 

/i(x, c, f). 

(2.N) 


A model equation more general than equation (2.7) may be constructed, as 
suggested by Gross and Jackson [13] and Sirovich[27], by expanding the kernel of a 
linearized Boltzmann equation in an appropriately chosen complete and orthonormal 
set of eigenfunctions. We shall, however, restrict our attention to the linearized model 
described by equation (2.7). 

If we now let <Mc), a = 1, 2, ...» 5, denote the elements of the vector 


<Mc) 


1 

VI(c J -§) 

V2 c 2 

V 2 c, 
V2 c, 


( 2 . 12 ) 


where c,, c 2 , c 3 , and c are respectively the components and magnitude of c, then 
equation (2.8) can be written as 


K(c':c) = <Mc)<Mc'). 


(2.13) 


Here the superscript tilde is used to denote the transpose operation. We note that the 
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elements of <f>( c) obey the orthonormal conditions 

((fra, (t>p)a = 8a.p\ «,/? = 1 , 2, . . . , 5, (2.14) 

in a Hilbert space (a) of the functions of c defined by the inner product 

(A„ A 2 ) a = f A,(c)A 2 (c) e ~ c2 d 3 c. (2.15) 

The elements </> a (c) are, of course, related to the collisional invariants which define the 
U vector in equation (2.2), and the orthogonality conditions stated in equation (2.14) are 
therefore direct consequences of the invariance requirements of equation (2.2). 

3. THE VECTOR KINETIC EQUATION 

As stated in the Introduction, we are primarily interested in steady-state gas-kinetic 
problems with plane symmetry. Without loss of generality, we set q„ = 0, and thus the 
steady-state version of equation (2.7) for 


h(Xi,c) = /?(*,, c )- 27 t V 2 ci(ci,h) a 

becomes 

[c,^+ ljft(x,,c) = 2 <Mc)(<ft» h) a . 

We now follow Cercignani[12] and consider the functions 

gi(c 2 , c 3 ) = g 2 (c 2 , c 3 ) = 7 t" ,/2 (c 2 +C3- 1), 

g 3 (c 2 , c 3 ) = c 2 , and g 4 (c 2 , c 3 ) = ^ c 3 . 


(3.1) 

(3.2) 


(3.3) 


It is a straightforward matter to demonstrate that the g functions given by equations (3.3) 
satisfy the orthonormal conditions 


(g«> ge)b = 8«.0, a = 1, 2, 3, and 4, (3.4) 

in a subspace ( b ) of the functions of c 2 and c 3 defined by the inner product 

(B u B 2 ) h =| | B,(c 2 , c 2 )B 2 (c 2 , c 3 )e dc 2 dc 3 . (3.5) 

We now span the Hilbert space (b) by the subspace (c) characterized by the g tt ’s and a 
subspace ( d ), the orthogonal complement to (c); subsequently we expand h(xi, c) of 
equation (3.2) in the manner 

4 

/i(x,,c)=2 'PaC’Ci, Ci)g<,(c 2 , Ci) + ’I'jOri, c), (3.6) 

a = 1 

where ^Uuc) is the component of k(x u c) belonging to the subspace ( d ). Such an 
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expansion yields the interesting property that the inner products ('Pc, <j> a ) a , a = 1, 2, 3, 
and 4, are simply related to the perturbations of the number density, the temperature, 
and the transverse components of the fluid velocity, respectively. 

Substituting equation (3.6) into equation (3.2) and projecting each term onto the 
appropriate directions of g a in the Hilbert space ( b ), we obtain 

\ ix— + ll'Hx, aO = — 7 =J(/ut) [ /a') e"** dju,', (3.7) 

L ta J Vi t 


where ^(x, /x ) is a four-element vector with components V a (x, /w),a = 1,2, . . .,4, and 


J(M) = 


V1( m 2 -|) 1 0 0 

V? 0 0 0 

0 0 10 

0 0 0 1 


(3.8) 


For convenience, we have changed the variables x, and Ci to x and /x. We note that the 
two functions ¥,(*, /ll) and ¥ 2 (x, /x), characterizing the perturbations of the number 
density and temperature respectively, are described by a set of two coupled integ- 
rodifferential equations. These two equations are, of course, uncoupled from the func- 
tions ju) and ^(jc, /lc) which describe the perturbations of the transverse 

momenta. 


4. ELEMENTARY SOLUTIONS OF THE TWO-VECTOR TRANSPORT EQUATION 
RELEVANT TO TEMPERATURE-DENSITY EFFECTS 

We are interested in the steady-state, gas-kinetic effects of temperature-density 
variations in plane-parallel media. According to equation (3.7), the relevant coupled 
equations are 


dX V7T J - « 


where Q(/x) is the transpose of 


(4.1) 



VlOxM) ll 

VI oJ’ 


(4.2) 


and ^Fi(x, n) and ^ 2 (x, pt), which are sufficient to determine the temperature-density 
effects, are respectively the upper and lower entries in the two-vector ^(x, n). We 
should like to note that equation (4.1) is quite similar to the equation of transfer used in 
a related study [4, 5] of the scattering of polarized light. 

Following Case [7] who introduced the method of normal modes in regard to 
one-speed neutron-transport theory, we search for elementary solutions to equation 
(4.1) of the form 

^ £ (x, M ) = F(|,M)e“ W£ , (4.3) 


where £ and F(£, ;u.) are the eigenvalues and eigenvectors to be determined. From equa- 
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tion (4.1), we obtain 

(£-m)F(£m)=-Wq(m)M(£) (4.4) 

V 7T 


where the normalization vector M(£) is given by 


(4.5) 


Equation (4.4) admits both discrete eigenvalues and a continuous spectrum. We 
consider first the discrete spectrum: f = 77 ,, Im 77 , ^ 0, and solve equation (4.4) to obtain 

F(tj ( , h ) = -4= — — — Q(/u.)M(T}i), (4.6) 

V 7T 771 — IX 

where 77 , are the zeros (in the complex plane cut along the entire real axis) of the 
dispersion function 

A(z) = det A(z). (4.7) 

Here the dispersion matrix is 

A(z) = I + z f (4.8) 

J-* /x - Z 

with I denoting the unit matrix and the characteristic matrix given by 

'I'(za) = - 7 =Q(M)Q(M)e” M ‘. (4.9) 

V 7 r 

Further, M(t7.) is a null vector of A(t7.) such that 

A(rji)M(r)j) = 0 . (4.10) 


The argument principle [10] may be used to show that A(z) has no zeros in the finite 
cut plane; however, since A(z) ~ ( a/z 4 ) + . . . , for |z| tending to infinity, we may deduce 
four ‘discrete’ solutions to equation (4.1). In the limit |z|->°°, we obtain from equations 
(4.6) and (4.10) 


F,(/x) = Q(/x) 


o] = yJl[ tl \ '].andF 2 ( M ) = Q(M)^ 


O' 


T 

. 1 . 


0 . 


(4.11) 


To construct the other two solutions requires a technique discussed by Case and 
Zweifel[ 8 ] to split the degeneracy at infinity. The resulting solutions are 


/x) = (/Lt j 2 j, and^x, m) = (/x -*) 


(4.12) 
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It should be noted that equations (4.11) are solutions to equation (4.1) and to equation 
(4.4) in the limit whereas, equations (4.12) are solutions only to equation (4.1). 

We now consider the continuous spectrum: £ = 17 , with Itn 17 = 0, and the solutions 
to equation (4.4) are 


F(tj, m ) = —\ riPv (— — ) + A*(tj)8(tj - #x)1q(m)M(t,), 
WL — /ULS J 


(4.13) 


where Pv(\/x) denotes the Cauchy principal-value distribution, and 6 (x) represents the 
Dirac delta distribution. Pre-multiplying equation (4.13) by Q(/u,)e^‘ and integrating 
over all p , we find 

[A ) - A *(t? Wr) )]M ( V ) = 0, (4.14) 

where 

A( V ) = l + V p[ (4.15) 

J -00 TJ 

and hence from 


det[A(T ? )-A*(r ? mr ? )] = 0, 


(4.16) 


we obtain a quadratic equation for the function A *( 17 ). In general there are two solu- 
tions which we label A *( 17 ) and A?(rj), and thus we write the two-fold degenerate 
continuum solutions as 


F«(tj, h ) = ^^ r 1 Pv ^— - — ^ + A *(17)6(17 - /ct) J q(/lx )M„ (17), a = 1 or 2 , 17 €( - 00, oo), 


(4.17) 


where the vectors are to be determined by the corresponding A *( 77 ), through 

equation (4.14). 

Having established the elementary solutions, we write our general solution to 
equation (4.1) as 

V(x,fi) = t A a F a (fi)+2A a V a (x,fi)+i f A a (-nW~(v, H)e x ' v <*V, (4.18) 

o = 1 a = 3 a = l J 


where the expansion coefficients A n and A, ( 17 ) are to be determined once the boundary 
conditions of a particular problem are specified. Although in general the integral terms 
in equation (4.18) may diverge for x^O, this will not be the case when the 
specific problems of sections 7 and 13 are considered. 


5. A FULL-RANGE EXPANSION THEOREM 
To ensure that the normal modes developed in the previous sections are sufficiently 
general for full-range, /x €(-<*, oc), boundary-value problems, we should now like to 
prove a basic result. 

Theorem 1. The functions F,(/ll), F 2 (/ll), F 3 (/lx) = ^ 3 (0, /lx), F 4 (/lx) = ^ 4 ( 0, /li), and 
F 0 (i 7 , fi), a = 1 and 2 , r) €( — °°), form a complete basis set for the expansion of an 
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arbitrary two-vector I(/x), which is Holder continuous on any open interval of the real 
axis and , for sufficiently large \fx\, satisfies 

\I a (/ul)| exp (— |^t|) < oc, a = lor 2, 

in the sense that 

Km) = 2 A»F a (/^)+ 2 f A a (r))F a (v, M)drj, m€( _ oc , °°)- (5.1) 

a = 1 a = 1 J —oo 

To prove the theorem, we shall construct an analytical solution to the above coupled 
singular integral equations. For the sake of brevity, we write 

4 

ia*) = I(n)- 2 A a F a (,j.), (5.2) 

a = 1 

introduce the (2 x 2) matrix 

G(tj, p,) = [F 1(17, p) F 2 { V ,h)1 (5.3) 

let A(tj) denote a vector with elements A a (ri), a = 1 and 2, and thus write equation (5.1) 
as 

I(M') = J G(rj, /a)A(tj) drj, fi €(- oc). (5.4) 

Pre-multiplying equation (4.13) by Q(/x) e ^ and invoking equation (4.14), we obtain 

Q( M )G(T,, M )e-“ J = [77Pr(^7)^( M )+8(T,-M)A(T,)]v(T,), (5.5) 

where 

V(t ? ) = [M,(t/) M 2 (tj)] (5.6) 

is the (2x2) normalization matrix. We now pre-multiply equation (5.4) by Q(/x)e 
make use of equation (5.5), and integrate the 6 term to obtain 

Q(M)KM)e-“ 3 = A( M )B( M ) + 'l '(fi)P f r]B(ri) — — , (5.7) 

J-* rj — p. 

where 8(17 ) = V(tj)A(i 7). Equation (5.7) may now be solved explicitly by using the 
theory of Muskhelishvili[21]. To convert equation (5.7) to a special form of a matrix 
Riemann problem, we introduce the sectionally holomorphic matrix 

n < z >= 5 hr. <5 - 8) 

The boundary values of N(z) as z approaches the real line from above ( 4 -) and below 
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(-) follow from the Plemelj formulae [21]: 

rri [N + (/x ) + N'((x )] = P f (5.9a) 

J-00 Tj /I 

and 

N + (/x)-N-( i it) = /LiB( i Lt). (5.9b) 

In a similar manner, the boundary values of the dispersion matrix follow from equation 
(4.8): 

AV) + A'(m) = 2A(^), (5.10a) 


and 


A + (/a)-A (pt) = 2'7 ti/x ^(/ x ). 

Equations (5.9) and (5.10) may now be used in equation (5.7) to yield 
fiQ(n )I(/x )e'" 2 = A )N + (/x ) - A“(fi )N“(/i ) f 
which can be solved to give 

N(z) = \-\z)^ f M Q(7t)t(M)e^^j. 

We note that for large |z|. 


(5.10b) 


(5.11) 


(5.12) 


A(z) ~ 


P 


6 S7b 

I ! 

\7b 2 


• as |z|- 


(5.13) 


and 


A”'(z) ~ 




1 -I 

2 V6 

-I 7 

V6 6 


, as |z | - 


(5.14) 


and therefore if the N(z) as given by equation (5.12) is to vanish when |z| tends to 
infinity, as equation (5.8) prescribes, we must impose on the vector i(/u) the four 
constraints 


i 


M a Q(/*)I(/x)e'“ dju. = 0, a = 1 and 2. 


(5.15) 


Recalling equation (5.2) for !(/*.), we observe that equation (5.15) will be inherently 
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satisfied if we specify the expansion coefficients A tt , a = 1, 2, 3, and 4, to be 


A, 


2 I 12 4 / 1 4 4 - 122 

A; 

12 

v7>/ 1 2 Vi/u — \Zfl 2 2 

A , 

SV&ir 

“ i/ll + 1 13 4 I 21 

A 4 


1 

1 

Ul 

1 

K> 

1 


where 

J« P =J ix 0 I a (ix)e^ d/x, a = 1 or 2; /3 = 1, 2, 3 or 4, (5.17) 

and /,(/x) and J 2 (/x) are respectively the upper and lower entries of I(/ll). Theorem 1 is 
therefore established. 

Although we could pursue equations (5.9b) and (5.12) to obtain explicit results for 
the continuum coefficients A a (j]), a = 1 or 2, we prefer to summarize the final expres- 
sions in terms of the formalism of the full-range orthogonality relations given in the 
next section. 

6. ORTHOGONALITY RELATIONS AND EXPLICIT SOLUTIONS 
We should first like to state the general orthogonality relation relevant to all 
solutions including the special distributions, F(£, jul), of the separated equation (4.4). 

Theorem 2. All eigenvectors F (£, /a) which are solutions of equation (4.4) are 
orthogonal on the full range , n £(-°°, °°), in the sense that 

J F(r,jbOF(£/*)e-“ 2 M d/*=0, fve (6.1) 

To prove the theorem, equation (4.4) is first pre-multiplied by F(£', /x)e M 7£, the trans- 
pose of equation (4.4) with £ changed to is post-multiplied by F(£ /i)e _# *7f', and the 
two resulting equations are then integrated over all fi and subtracted one from the other 
to yield 


(j-j 7 ) f F(£\ m)F(£ ju,)e _M * /uid/j, = 0 , (6.2) 

which establishes equation (6.1). Though equation (6.2) is a general statement of 
full-range orthogonality, it is clear that several additional relations are required here. 
First of all, since F,(/x) and F 2 (ja) are both associated with £ -»°°, equation (6.2) does not 
ensure that they will be mutually orthogonal in the sense of equation (6.1). In addition, 
the vectors F 3 (/x) and F 4 (/lx), being derived from the solutions of equation (4.1), rather 
than equation (4.4), are not included in Theorem 2. However, it can be easily shown 
that F,(/lx ) and F 2 (/a) are mutually orthogonal, and, in fact, self-orthogonal: the same is 
true for F 3 (ju,) and F 4 (jll). In addition, F 3 (/a) and F 4 (jul) are orthogonal to the continuum 
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solutions F,(r/, /a) and F 2 (t], /jl). We note that Fi(/ll ) and F 2 (/ll) are not orthogonal to 
F^/jl) and F 4 (ja); however, suitably defined adjoint vectors for these special cases can 
be developed by employing a Schmidt-type procedure. 

Considering first the normalization integrals related to the solutions given by equa- 
tion (4.13), we find 

J F a (rj', n)Fp(ri , /u,)e /id/n = S(rj)S(rj -rj')8 a ,p ; a,/3 = 1,2, (6.3) 

where 

S( V ) = ^[n 2 v 2 + A*( V )At( V )]M a (vmv)M'>(vl (6.4) 

V 7 r 

The Kronecker 5 a . 3 appearing in equation (6.3) should be noted since it ensures that the 
degenerate continuum solutions given by equation (4.13) are orthogonal even for rj' = 
r). To establish equation (6.3) requires the use of the Poincare-Bertrand formula [21] and 

[A *(V) - A (v ) = 0, (6.5) 

a relation which can be deduced from equation (4.14). 

Though the representations of the two continuum solutions given by equation (4.13) 
were convenient for proving the full-range expansion theorem, we choose to make use 
of more explicit forms for actual applications. We note that equation (4.16) is quadratic 
in A *(17), and thus the two solutions will in general involve radicals. To avoid the 
cumbersome nature of the ensuing solutions, we prefer the linear combinations 

<Pa(v , /a) = T al (r))Ft(ri, jii)+ T a2 (i j)F 2 (rjy m), a = \ and 2, (6.6) 

which, for judicious choices of T aP ( 17), enable us to deduce the more tractable solutions 


0,(77, /Lt ) = 


+ [i + A " ( ’> ) ] s< ’> “ ^ 


(6.7a) 


and 


0 :(T), fx) = 



+ A„(t7)5(tj - ft) 


^8(-q- n) 


(6.7b) 


where 


A 0 ( 17 ) 


mt+ vr*L 


d ijl 


M -T? 


(6.8a) 
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or 


A 0 (tj) = 1 — pe*’d ix, 

Jo 

( 6 . 8 b) 

and 


A 1 ( 17 ) = 3 + (tj 2 -i)Ao(tj). 

(6.9) 

We note that equations (6.7) are not mutually orthogonal for rj' = rj; however, a 
Schmidt-type procedure may be used here as well. Since our final adjoint vectors follow 
in a manner analogous to that reported by Siewert and Zweifel[26], we shall simply 
summarize our conclusions below. For the case of the degenerate continuum modes, 
we find that the procedure discussed in reference [26] can be used to establish the 
required adjoint vectors. To unify our notation, we also define 

<P a (/x.) = F a (fi), a = 1,2, 3 and 4. 

( 6 . 10 ) 

The orthonormal full-range adjoint set is given by: 


X.O*) = — t=[6^ 3 (/u.) - 2V60 4 (h)], 

5 V 7 r 

( 6 . 11 a) 

= -T=[- 2V60,(m) + 140 4 (m)], 

5 V 77 

( 6 . 11 b) 

X,(/x) = —^[60, (fji) - 2V6 0:(m)], 

5 V 77 

( 6 . 11 c) 

X 4 (/x) = — 7 =[- 2V60,(/x) + 140 2 ( M )], 

5 V 77 

( 6 . lid) 

X,(rj, n) = ^^^ 22 ( 17 ) 0 ,( 17 , /x) N i: (r))0 : ( 17 , /x)], 

( 6 . lie) 

and 


X 2 (rj, jx) = n ^)[N m (t7)0 2 (i 7, jtx) - ^, 2 ( 77 ) 0 ,( 77 . /x)], 

( 6 . Ilf) 


where 


Nn(t}) = [Ao(t)) + 3]*' + Ai(t))+ itt) 2 [(t) 2 - ^) 2 + 1] e -2 ” 2 , 
N, 2 (i 7 ) = Ao(i7)A,(T7) + |A 0 (i 7 ) + i+ 7rrj 2 (rj 2 -i) e~ 2v \ 
N 2 2(tj) = Ao(tj) + *4- ttt \ 2 e -2112 , 

7 V(t? ) = It 7 e" T, 2 A + (i7)A"(i7). 


and 


( 6 . 12 ) 
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The required orthogonality relations among the full-range basis and adjoint sets 
are: 

I X a (ix)<P P (p.) e - " 2 pt d/LA = 8 a .i 3 ; a,/3 = 1, 2, 3, or 4, (6.13a) 

I /m) e~^ fid/x =0;a = l,2,3,or4,/3 = lor2, (6.13b) 

I X a (r)', n) e~ M ’ pdp. = 8(rj — rj') 8 a . e ; a,/3 = 1 or 2, (6.13c) 

J XJv',n)<p 0 (n)e 1x2 ^ dp =0: a = 1 or 2, /3 = 1,2, 3, or 4. (6.13d) 

With the formalism thus established, we note that all expansion coefficients in 
equations of the form 

I(m) = 2 A»<P«(fi) + 2 [ Aa(y)<P n (v> n) di 7 , fji 6 (-oo, oo) ? (6.14) 

may be expressed immediately in terms of inner products: 

A a = J X a (pi)I(pi) e _M pi d/x, a = 1, 2, 3 and 4, (6.15) 

and 

A a (rt) = J X„(rj, /x )I(/x ) e~" ! pdp. a = 1 and 2. (6.16) 

7. THE INFINITE-MEDIUM GREEN'S FUNCTION 
In order to illustrate the use of the elementary solutions of equation (4.1) and the 
relevant orthogonality relations, we should now like to develop the infinite-medium 
Green's function. Here we seek a solution to 

p — 'V(.x,fi) + ‘V(x,fi) = -\=Q(ix) [ Q(/j.')ty(x, i*') e" dp' + S(x 0 , p,, p 2 ; x, p), 

dX V 77 J — 

(7.1) 

where 


S(x 0 , pi, p 2 ; x, p) = S(x — Xo)p >l (7.2) 

Lp 2 S(p - /X:)J 

Clearly, since the kinetic equation conserves particles, kinetic energy, and momentum, 
there will exist no bounded (at infinity) solution to equation (7.1): however, the Green’s 
function we develop may be used in the classical manner to construct particular solu- 
tions to equation (7.1) for arbitrary inhomogeneous source terms for semi-infinite or 
finite media. As discussed by Case and Zweifel[8], we neglect the inhomogeneous term 
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in equation (7.1) and require the solution to the resulting homogeneous equation to 
satisfy the 'jump' boundary condition 


AX I'Uo, P ,, /lx 2 ; Xo, /lx,, p 2 ; 


X 0 



p, 5(p - pi) 
p2 8(p - p 2 ) 


]• 


p£(-°°, °°), 


(7.3) 


where the argument list has been extended to include the parameters x 0 , p,, and p 2 . We 
therefore write the desired solution as 


and 


2 2 /•» 

'I'Uo, pi, p 2 ; x, p) = 2 A rt 0a(p)+2 I yA a (r) )<!>„( 7), p) e~ (x ~ x ° ),v dr/, (7.4a) 

a = l a — I JO 

for x > x 0 , 


4 2 ro 

^(x 0 , ju.i, ju. 2 ; x, p.) = (x - x 0 , /x)-^ A„(t))0„(t), / i.)e " drj 

a = 3 or - I J -oo 

for x < Xo. (7.4b) 

Substitution of equations (7.4) into equation (7.3) yields the full-range expansion 

[p' -/x!)] = 2 J A a (Tj)0 a (T}, jtt)drj|, jLt €(-“>,<»). < 7 - 5 ) 

Though the left-hand side of equation (7.5) certainly is not a Holder function. Case and 
Zweifel[8] have concluded that expansion theorems similar to our Theorem 1 remain 
valid formally even for this type of delta distribution. We therefore pre-multiply equa- 
tion (7.5) by X a (p)e a = 1,2, 3, or 4 and X a (r/', p)e a = 1 or 2, and integrate 
over all p to find, after invoking equation (6.13), 

A, = piX al (pi) e"* 1 ' + p 2 X a2 (p 2 ) e a = 1,2, 3, and 4, (7.6a) 

and 

A a (rj) = piX„i(rj, p,) e -M ' + p 2 X a2 (i 7 , p 2 ) e _,x % a = 1 and 2, (7.6b) 

where the subscripts 1 and 2 are used to denote the upper and lower elements of the X 
vectors. Since all expansion coefficients required in equations (7.4) are given by equa- 
tions (7.6), the infinite-medium Green's function is established. 

8. A HALF-RANGE EXPANSION THEOREM 
Having developed in sections 5 and 6 the necessary completeness and orthogonality 
properties of our normal modes, we should now like to discuss the analysis required for 
the considerably more interesting problems defined by half-range, p £(0, oo), boundary 
conditions. The following theorem states the very important half-range expansion prop- 
erties basic to a certain subset of our derived elementary solutions. 

Theorem 3. The functions F,(p), F 2 (p) and F a (ri p), a = 1 and 2, tj6(0,<«), form 
a complete basis set for the expansion of an arbitrary two-vector I(p) which is Holder 
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continuous on any open interval of the positive real axis and , for sufficiently large |/x|, 
satisfies 

|LO)| exp (- |/i|)<°°, a = 1 or 2, 

in the sense that 

I0*)=i) A,F o (/0+i f AA Tj)F B (ri,/t)dT,,/i€(0,oo). (8.1) 

a = 1 « = I JO 

To prove this theorem, we premultiply equation (8.1) by e ^ Q(p), integrate the 
8 term and use equations (4.13) and (4.14) to obtain 

Q(M)I(M)e “ 2 = A( m )B( m ) + ^(m)P f (8.2) 

Jo T? — M 

where 

t(/t) = I(/t)-2 A.F.OO (8.3) 

a = 1 

and 

B(t J ) = V(t ? )A(t ? ). (8.4) 

In addition, V(i7) is given by equation (5.6) and the unknown A(tj) has elements 
A ,(17 ) and A 2(17 ). In a manner similar to that used to prove Theorem 1 , we now introduce 

<8 - 5) 

The N matrix is clearly analytic in the complex plane cut along the positive real axis. 
Further, the Plemelj formulae [21] can be used, with equation (8.5), to show that the 
boundary values of N(z) satisfy 

iri[N*0t) + N'(M)] = P f t)B(t 7)-^- (8.6a) 

Jo rj — p 

and 

N + (p)-N~(p) = pB(p). (8.6b) 

Equations (8.6) can now be used, along with equations (5.10), to express equation 
(8.2) in the form 

pQ(p) !(/lc) e'" 2 = A + (/x)N» - A'(m)N (/x), p 6(0, «). (8.7) 

If we now let X(z) denote a canonical (non-singular in the finite plane) solution to the 
homogeneous Riemann problem defined by 

X"(/ll) = G(p)X~{p), p 6(0, x), (8.8a) 
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where 


G( M ) = A + (/ui)[A-(/Lt)r , (8.8b) 

then equation (8.7) can be solved immediately to yield 

N(z) = X-'(z)[jE J r(M) Q( M )i (M)e - 2 _iM_ + P(2) J. (8 .9) 

Here, P(z) is a matrix of polynomials, and 

^( M ) = i LtX + ( i Lt)[A + (iLl)^ , . (8.10) 

Since the G matrix given by equation (8.8b) is continuous for (jl €[0, oo), G(0) = I and 
G(/x)-*I as /x -><», the analysis of Mandzavidze and Hvedelidze[20] can be used, after 
an elementary transformation of variables, to ensure the existence of a canonical solu- 
tion to the Riemann problem defined by equation (8.8a). In section 9 we argue that the 
partial indices k i and k 2 associated with our canonical solution X(z) are 

K j = *2=1, (8.11) 

and thus if we allow our canonical matrix X(z) to be of normal form at infinity [21], we 
may write 

limz X(z) = A, (8.12) 

Z-*oc 


where A is nonsingular and bounded. 

From the defining equation (8.5), we observe that z N(z) must be bounded as |z|->o°, 
and thus from equation (8.9) we conclude that 

lim zA '[=-4 f r(/x)Q(fi)i(n) e - ** 1 d/x + zP(z)l < (8.13) 

|z|-~ LlTTl Jo J 

we must therefore set P(z) = 0 and, in addition, require that 

f nn)Q(n)i(n)e-» 2 dn =0. (8.14) 

Jo 

Equation (8.14) is, of course, not satisfied by all i(/x), but recalling equation (8.3), we 
conclude that choosing the discrete expansion coefficients to be solutions of 

f r( M m M )dJ^'l = ^= [ r(M)Q(M)I(M)e-' l2 d M (8.15) 

LA2-1 V 7 rJ 0 

renders equation (8.1) valid for all appropriate I(/lc ). The matrix in equation (8.15) whose 
inverse is required to obtain A, and A 2 can be shown to be non-singular by making 
use of a Cauchy integral representation of X(z). The theorem is therefore proved. 
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Though, as for the full-range case, we could pursue this completeness proof to 
construct the continuum expansion coefficients Afrj), 17 £(0, °°), we find it more conve- 
nient to express the final results in terms of half-range orthogonality relations. 


The proof of the half-range expansion theorem given in section 8 is based on the 
proposition that the partial indices k , and k 2 are both non-negative. In fact, equation 
(8.13) is valid only if the partial indices are given by k x = k 2 = 1. In this section we 
develop the required proof that ki = k 2 = 1. 

We consider then the homogeneous matrix Riemann problem defined by 


Here we seek a matrix &(z) analytic in the plane cut along the positive real axis, 
non-singular in the finite plane, and with boundary values <t >~(/x) which satisfy equation 
(9.1). 

Since G(0) = I and G(/x)-»I in the limit as /x-»oc, we can define G(/x) = I on the 
entire negative real axis and thus consider equation (9.1) for /x £(-oc, oc). To make use 
of the results developed by Mandzavidze and Hvedelidze[20], valid for closed con- 
tours, we make the change of variables 


which maps the upper half of the z plane into the interior of the unit circle in the 
£-plane. We note that the positive (negative) real axis maps into |£| = 1, Im £ >(<) 0. 
The existence of a solution to the Riemann problem in the £ plane follows from the 
theory of Mandzavidze and Hvedelidze[20], since the resulting G matrix is continuous 
on the unit circle, and <P(z), the canonical solution in the z-plane, is the image of the 
solution in the £ plane postmultiplied by an appropriate matrix of rational functions. 

It can be demonstrated [5] that the A matrix can be factored as 


where <2>(z) is any canonical solution (of ordered normal form at infinity) to equation 
(9.1) and SP(z) is a matrix of polynomials, which depends on the particular choice for 
&(z). 

The fact that G(/x) = [G(/x)] _I , where the bar indicates the complex conjugate, en- 
ables us to extend the results of Siewert and Burniston's[25] Theorem II to the 
Riemann problem defined by equation (9.1): 

Theorem 4. There exists at least one canonical matrix <J >,(z) of ordered normal 


form at infinity for the Riemann problem defined by equation (9.1) such that <P\(z) = 


9. A PROOF REGARDING THE PARTIAL INDICES OF THE 
RIEMANN PROBLEM 


<P\n) = G(p)<P (/x),/x€[0,oo), 


(9.1) 


where 


G(/a) = A + (/x)[A"(jLt)] _I , /x £[0, »). 


(9.2) 



(9.3) 


A(z) = &(z)SP(z)<t>(- z) 


(9.4) 
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Since the proof of Theorem 4 follows very closely one previously reported [25], it 
will not be given here. 

If we use 0, (z) in the factoriza tion o f A(z), the resulting polynomial matrix Sft(z) is 
such that 9>(z) = 2P(- z) and SP(z) = 2P(z), since A(z) = A(z) = A(- z) and A(z) = A(z). 
By definition [2 1 ], a canonical solution of ordered normal form at infinity is such that 

lim < J > .(2)[ 2 0 ' 2 °k 2 ] = K, det K * 0, (9.5) 

where k i and k 2 ^k, are the partial indices. Furthermore the sum of k, and k 2 must 
yield the total index k, which in the manner of Muskelishvili[21] can be computed di- 
rectly once the G matrix and the appropriate contour are specified. For this problem, we 
find 


K\ + k 2 = k = 2 . 


(9.6) 


If we now evaluate equation (9.4), for 0(z) = 0,(z) at z = 0, we obtain 

^(O)=0, 1 (O)07 , (O), (9.7) 


and since 0,(0) is real (recall that 0,(z) = 0,(z)), we conclude from equation (9.7) that 
3P,,(0)^0 and ^(0) ^ 0. Again from equation (9.4), for 0(z)= <2>,(z), we can write, 
after using equation (5.13), 




0 

-zY* 


\ 


(9.8) 


as|z|- 


from which it follows, since K is real, that 

MT| = #C 2 = 1. (9.9) 


It is clear, since <J>,(z) is a canonical solution of ordered normal form at infinity, and 
since k, = k 2 = 1, that 

<f>„(z) = d>,(z)K“V2^ 0 : JJ (9.10) 

is also a canonical solution of ordered normal form at infinity and is such that <P„(z) = 
#„(z). In view of equations (9.8) and (9. 10), we can therefore write equation (9.4) as 

A(z) = <f>„(z)«Po(-z), (9.11) 


where 


0„(O)4>,,(O) = I 


(9.12a) 
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and 


lim z<P 0 (z) = V2 


Vh 


o 



(9.12b) 


We note that Cercignani [11] has reported a factorization in the spirit of our equation 
(9.1 1). We have been unable, however, to justify some of Cercignani’s results [11; pp. 
84-85] since, for example, upon ‘taking' determinants of his equation (311) we find an 
inconsistency in the number of poles on the two sides of the equality sign. We have 
found that the extension of scalar results to the case of matrix Riemann problems, in 
general, does not follow immediately [6]. 


10. HALF-RANGE ORTHOGONALITY AND NORMALIZATION INTEGRALS 

The half-range orthogonality relations developed by Kuscer, McCormick, and 
Summerfield[18] for the elementary solutions of the one-speed neutron-transport equa- 
tion have proved to be useful for establishing concisely the solutions to a scalar singular 
integral equation somewhat analogous to equation (8.1). We should thus like to prove, 
in a manner similar to that reported by Siewert[24] for an equation of transfer basic to 
the scattering of polarized light, the following theorem concerning the half-range or- 
thogonality properties of a subset of our developed normal modes. 

Theorem 5. The eigenvectors F,(jLt), F 2 (/ct ), F,(r/, /ll), and F 2 (i 7 , /li), tj£(0, °°), are 
orthogonal to the related set G,(p,), G 2 (/ll), G,(tj, /jl) and G 2 (tj, /jl), tj€(0,<x>), on the 
half-range , /ll € (0, sc), in the sense that 

J o G(£',m)F(£, fidu =0,f =oo or €(0, oo). (10.1) 

Here F(£ jt), £ = oo or € (0, °°), denotes any of the eigenvectors F,(/a), F 2 (/a), for £ = oo, 
or F,(t ), /x), F 2 (t i fi), for tj € (0, oo). l n a similar manner, G(£, /x), represents either 

G„(M) = Q(/u)H(/x)H7'Q- , (/x)F„(M),a = 1 or 2, (10.2a) 


or 


G«(r), fi) = Q(/j.)H(/x)H '(rj)Q '(fj.)F a (rt, /a), tj 6(0, oo), « = ] or 2. (10.2b) 

In addition 

H ,=J (10.3) 

and H(/jl ) is the H matrix basic to our half-range analysis. In section 11 we prove the 
existence of a unique solution to the system of singular integral equations 

H(/ul)A(h) = I + /ulP I HirjWirj)— /x £(0, oc), (10.4a) 

Jo rj - /i 
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plus the constraint 

[ H(/i)V(/i)dfi = 1, (10.4b) 

Jo 

which we take to specify H(/x). As shall be shown, H(fi) can be expressed in terms of 
<Po(z), our canonical solution, of ordered normal form at infinity, of the matrix Riemann 
problem defined by equation (9.1): that is 

H(ax) = 0o , (-m)^>(O), (10.5) 

which can be extended to the complex plane cut along the negative real axis to yield a 
factorization of A(z): 


A(z) = H"‘(z)H _, (— z). (10.6) 

To establish our Theorem 5, we first pre-multiply equation (4.4) by G(£', /A)e _/A 7£ 
we then post-multiply the transpose of equation (4.4), having changed £ to by 
Q *(/x )H —1 (^')H(/lx )Q(/ x )F(^, jit) exp (- integrate the two resulting equations over 

/x from 0 to oc and subtract the two equations, one from the other, to obtain 




G(£\ /t) F(fe At) e-“ 2 /xdAt = -MKtf', f ) - K 2 (f, £)], £ and f > 0. 

V 7 T 


Here 


(10.7) 


K,(£ , ,£) = M(£')H-‘(£') [ H(fi)Q(ju.)F(€, fi) e~“ 2 d/x (10.8) 

Jo 


and 

K 2 (f,f)= f F(£',p)Q- V)H ^ , (^')H( i Li)Q(iLt)Q(iLi)e-" 2 d i Li M(a (10.9) 

Jo 

If now, in the manner similar to that previously reported [24], we make use of 
equations (4.5), (4. 1 1), (4. 13), (4. 14) and (10.4) to evaluate equations (10.8) and (10.9) for 
all appropriate f and f ', we find 

K.(£\ f) = f); ^'€(0, oo), £ = <*or € (0,o°), (10.10) 

and from equation (10.7) we obtain 

M-) e-**' M-d/i = 0;£f>0, 00.11) 

which proves the theorem. We have only established equation (10.11) formally for 
^ oo. However, considering that case separately, we do find that G a (/x), a = 1 or 2, is 
orthogonal to F(£, jjl) in the sense of Theorem 5. Of course, since F,(/x) and F 2 (/jl) both 
correspond to the eigenvalue £ = °°, equation (10.1) does not ensure that the inner 
product, in the sense of Theorem 5, of G,(ja) with F 2 (/ul) and G 2 (|jl) with F,(/ll) is zero. 
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However, for this special case we have carried out the algebra prescribed by equation 
(10.1) to show explicitly that 

f G„(M)F s (M)e““VdM =0,a#/3, (10.12) 

so that all of the half-range eigenvectors are orthogonal in the manner of Theorem 5. 

Having established the required half-range orthogonality results, we should now like 
to consider again the normalized solutions given by equation (6.7) in order to present 
our half-range normalization integrals in a form analogous to that used for the full-range 
theory. We consider then the half-range adjoint set 

e.( M )«^Q( M )H( / 4)H7 , Q-V)*.(#i). a = 1 and 2, (10.13a) 

and 

0.0?, fi) = Q(m)H(/x)H- 1 (t ? )Q- , (/x)X q (t ? , il) 9 j) €(0, «), a = 1 and 2, (10.13b) 

where the vectors X a (rj, )ll), a = 1 and 2, are given by equations (6.1 le) and (6.1 If); we 
can therefore summarize our results in the manner 


e ; a,/3 = 1 or 2, 

j 0 a (/x)d> 0 (i7, /Li)e' M jiidjLL =0, t)€(0, oo); = 1 or 2, 


(10.14a) 

(10.14b) 


J 0a (17', /Lt)^(i7, jit) e M ptd/Lt = 8 a fi 8{r) - 17'); 17,17 '€(0, oc), a ,j3 = 1 or 2, (10.14c) 

Jo 


and 


J 0„(tj, e” M ‘ /xd/x = 0; 17 €(0, 00), a ,/3 = 1 or 2. (10.14d) 

With the half-range formalism thus established, we note that the solutions for all 
expansion coefficients in equations of the form 

2 2 r » 

I(m) = 2 A.F„(/u.)+ 2 I A a (rj)F a (Ti, n) drj, p. €(0, oo), (10.15) 

a = I a = I JO 

can be expressed concisely as 

A = J O a (/*)l(/jL) e' M ‘ /ad/x, a = 1 and 2, (10.16a) 

and 

A (17) = J 0a (17, m )!(/*) /J, dpi, a = 1 and 2. 


( 10 . 16 b) 
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We note that a set of integrals of the form 

f andf'>0, (10.17) 

Jo 

has been evaluated and is listed elsewhere [ 16]. 


11. EXISTENCE AND UNIQUENESS OF THE H MATRIX 
We first wish to prove 
Theorem 6. The equations 


H( j a)A( J a) = I + /xP f H(rj )f(r|) n 6(0, oo), (11.1a) 

Jo 17 M 

and 

f g HW%)d^=I (11.1b) 

possess a unique solution in the class of functions continuous on every open interval of 
the positive real axis. 

Though for the sake of brevity we do not give an explicit derivation of equations 
(1 1.1), we note that the H matrix specified by equations (1 1.1) is sufficient for establish- 
ing the half-range orthogonality theorem. 

To prove Theorem VI we make use of the equivalence of the given singular-integral 
equations to a certain matrix version of the Riemann problem. In the manner of 
Muskhelishvili[21], we introduce the matrix 

N(z) = y — t f HfriW^ (11.2) 

Zffl Jo 7} — Z 

which is analytic in the plane cut along the real axis and vanishes at least as fast as 1/z 
as |z| tends to infinity. The Plemelj formulae[21] can be used with equation (11.2) to 
yield 


tt/[N + ( m ) + N-(m)] = P [ H(T)WT))-^ a -,M£(0,«>), (11.3) 

Jo 7] p 

and 

N + (m ) - N‘(m ) = H (0, oo). (11 .4) 

If we make use of equations (5.10), (11.3) and ( 1 1 .4) then equation ( 1 1 . 1 a) can be cast in 
the equivalent form of an inhomogeneous Riemann problem: 

N + ( M ) = G(/x)N-(/x) + V(/i)[A-(M)r', P €(0, oo), (11.5) 

where 


g(/*) = a + (p)[a oor'. 


( 11 . 6 ) 


i 
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The solution to equation (11.5) can be written as 



(11.7) 


where P(z) is a matrix of polynomials, 


K( /i )=[$wr i 'i'(,t)[A»r 1 , 


( 11 . 8 ) 


and <J>(z) is any canonical solution (of ordered normal form at infinity) to the 
homogeneous Riemann problem defined by equation (9.1). In order that equation (1 1.7) 
have behavior as |z| approaches infinity consistent with equation (1 1.2), we must take 
PU) to be a constant matrix. 

Following closely Siewert and Burniston’s[25] work on the scattering of polarized 
light, we can now use the constraint to specify uniquely the constant P(z) in equation 
(11.7). It thus follows that equation (11.7) along with equations (9.11) and (11.4) yields 
the result 


where <2> 0 (z) is the canonical solution (of ordered norma l form at infinity) used in 
equation (9.1 1). We note from equation (1 1.9), since 0„(z) = 0 o (z), that H(fji) is real for 
/jl £(0, °°). Further, equation (1 1.9) can be used to extend the definition of H(^l) to the 
complex plane: 


We note that equations (5.10), (9.11) and (11.10) can be used in the Cauchy integral 
representation 


H( /Lt ) = 0o * (- M )0 o (O), /X (0, 00), 


(11.9) 


H(z) = 0o , (-z)0 ( ,(O), 


( 11 . 10 ) 


so that the A matrix can now be factored as 


A(z) = H ’(-z)H '(z). 



( 11 . 11 ) 


to obtain 


H(z) = I + z 


H(z) f H( V mv) 
Jo 


V +z 


dr) 


( 11 . 12 ) 


or 



(11.13) 


Since we have established the existence of a unique solution to equations (11.1) and 
developed equation (11.13) specifically to be used, along with equation (11.1b), as the 
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basis for our procedure for computing the H matrix, it follows that we require proof of 
Theorem 7. The equations 


H(m) = I + mH(m) f H(i»mi,)-^-,M€[0,oo), (11.14a) 

Jo V +11 

and 

f H((i)V(n)dfi =1 (11.14b) 

possess a unique solution in the class of functions continuous on every open interval of 
the positive real axis. 

We have shown that equations (11.1) possess a unique solution; thus we need only 
show that any solution of equation (11.14a) is also a solution of equation (11.1a). We 
first write equation (11.14a) as 

H(4l-4 H(r,mT))-^-l = I (11.15a) 

L Jo V + ^ J 

or, alternatively, 

[i-juf H(T})^(i 1 )-^ :L -lH( j Lt)=I. (11.15b) 

L Jo rj + p J 

If the transpose of equation (11.15b) is post-multiplied by 

I+Jtxpf H(t,Wt|)-^- 
Jo V p 

then, after making use of some partial-fraction analysis and equations (4. 1 5) and (11.15), 
we obtain 

H(fi)A(fi) = I+^P f H(t)Wt))-^,m^(0,“), (11.16) 

Jo V ~ p 


which proves Theorem 7. 


12. AN EXPEDIENT METHOD FOR COMPUTING THE H MATRIX 
It is clear from the previous sections of this paper that the H matrix is the basic 
quantity required in the solutions of problems defined in terms of equation (4.18) and 
specified by half-range, p£( 0, <*), boundary conditions. It is also apparent from the 
analysis of section 1 1 that the basic proofs regarding the existence and uniqueness of 
the H matrix have been established; however, to demonstrate the utility of our analysis, 
we must now establish a procedure by which we can compute the H matrix accurately 
and efficiently. 

As we have discussed, the H matrix is uniquely specified by the nonlinear equation 
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and the constraint 


H((x) = I+hH(m) f H(vmvhrr-,^^0,oo), 

Jo v "h M 

[ H(fi)ty(fi) dfi = I. 

Jo 


(12.1a) 


(12.1b) 


Rather than seek a numerical solution to equation (12.1a) which must also satisfy equa- 
tion (12.1b), we prefer [15, 22] first to write 


If we now substitute equation (12.2) into equation (12.1a), perform some elementary 
partial-fraction analysis, and make use of the constraint, equation (12.1b), then we find 
that L(fi) must satisfy 


It follows from Theorem 7 that equations (12.3) have a unique solution. We regard 
equations (12.3) as the basic equations to be solved numerically because an iterative 
procedure based on these equations has proven to converge faster than a similar itera- 
tive solution of equations (12.1). 

For calculational convenience, we now prefer to make in equations (12.3) the change 
of variable 


and thus to write 


where we have introduced the notation g.(f) = g[t/( 1 - t)]. We have found that equa- 
tion (12.5) can be solved quite effectively by iteration. 

The computations were performed in double-precision arithmetic on an IBM 
370/165 computer, and we used an improved Gaussian-quadrature[17] representation of 
the integration process. The iterative procedure was terminated when successive calcu- 
lations of L.(f) differed by no more than 10~ 15 . 

To substantiate confidence in our computations, several “checks” were incorporated 
in the calculation. As expected L*(f) satisfied 


H(/x) = (l + /x)L(ju), m£[ 0, x). 


( 12 . 2 ) 


and 


L0*) = I+*iL0*) f (I-T, 2 )L(T,mn)-^, *t€[0,oo), 

Jo v + /X 

J L(/u.)< r (/u.)(l + fi) d/x = I. 


(12.3b) 


(12.3a) 




( 12 . 6 ) 
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an identity corresponding to the constraint, equation (12.1b), to thirteen significant 
figures. The equation in terms of L *(f) corresponding to the identity [16] 

'l'(jx) ia 2 <\i± - [ ^(/jl)H(/ul) ixdfj. f H(/ul)^(/jl) /J id/n =0 (12.7) 

Jo Jo Jo 

was also verified to thirteen significant figures. 

The analytical solution [16] 


H(z) = det H(z) = 



where argA + (0)= -2i r, can be shown to satisfy 


where 


Jo 7) -r IX 

/< ” ) “ 5 e "‘[T _ _ 8 ” e d ']- 


(12.8) 


(12.9) 


( 12 . 10 ) 


Rather than solve equation ( 12.9) and the appropriate constraint for H(p.) we prefer to 
write 

H(/i) = (l + p) 2 L( M ),/*€[0,oc). (12.11) 


If we substitute equation (12.11) into equation (12.9), perform some partial-fraction 
analysis and make use of two identities [16] for H(n) then we find that (after an 
appropriate change of variables) L-(f) = det L-(t ) must satisfy 


I 

L-(t) 


= 1 - 



(1 ~ 2s) 2 

(1-s) 5 


/■(s)L.(s) 


d 5 

s(\-t)+t(\-s) 


,*€[ 0,1). 


( 12 . 12 ) 


We have compared L*(t) as computed from equation (12.5) to a direct solution of 
equation (12.12) and the appropriate constraint to find agreement to nine significant 
figures. 

Finally the number of quadrature points used to represent the integration process 
was increased to suggest that the numerical values of the L* matrix given in the 
accompanying Table (1) were insensitive to further refinements in the quadrature 
scheme. 


13. AN APPLICATION OF THE THEORY: 

THE TEMPERATURE SLIP PROBLEM 

We consider the effect of a body surface on the behavior of the particle distribution 
function of a rarefied gaseous medium. It is known that, in the absence of boundaries, 
the particle distribution function in a gas with slowly varying physical parameters obeys 
the Chapman-Enskog equations (and therefore the macroscopic variables obey the 
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Table 1. The L* matrix 


t 

L.„(D 

WO 

E»2I (t) 

E«22 (f ) 

0-0 

1-0 

0-0 

0-0 

1-0 

005 

1-05781 

-0-0409718 

-0-0406202 

1 -08988 

010 

1 -08842 

- 0-0702992 

-0-0691920 

1-14897 

0-15 

1-10976 

-0-0960791 

-0-0939297 

1-19824 

0-20 

1-12527 

-0-119749 

-0116314 

1-24158 

0-25 

1-13648 

-0-141931 

-0-136989 

1 -28073 

0-30 

1-14424 

-0-162963 

- 0-156307 

1-31664 

0-35 

1-14909 

-0-183053 

-0-174483 

1-34992 

0-40 

1-15139 

-0-202341 

-0-191658 

1 -38097 

0*45 

1-15138 

-0-220921 

-0-207929 

1-41009 

0-50 

1-14926 

-0-238862 

-0-223361 

1-43748 

0-55 

1-14514 

-0-256214 

- 0-238000 

1-46333 

0-60 

1-13912 

-0-273011 

-0-251873 

1-48774 

0-65 

1-13125 

-0-298278 

-0-264997 

1-51082 

0-70 

1-12157 

-0-305030 

-0-277373 

1-53265 

0-75 

1-11008 

-0-320274 

-0-288995 

1-55328 

0-80 

1-09678 

-0-335010 

-0-299844 

1-57276 

0-85 

1-08162 

-0-349228 

-0-309887 

1-59111 

0-90 

1 -06454 

- 0*3629 1 3 

-0-319081 

1 -60835 

0-95 

1 -04545 

-0-376036 

-0-327361 

1 -62449 

0-99 

1 -02864 

-0-386105 

-0-333271 

1 -63660 


Navier-Stokes equations). Near the body surface, the behavior of the gas is described 
by a rarefied Knudsen layer in which the collisional effects are only of secondary im- 
portance. It is natural to ask how the outer Chapman-Enskog (or Navier-Stokes) region 
can be matched consistently with the inner Knudsen layer. Saying it differently, we ask 
what are the velocity and temperature slip boundary conditions at a body surface for 
the Navier-Stokes equations due to the presence of the Knudsen layer adjacent to the 
body surface. 

To understand the asymptotic behavior of the Knudsen layer, we may stretch loc- 
ally the coordinate normal to the body surface such that the gas-kinetic motion in the 
Knudsen layer reduces to a locally defined half-space problem and the kinetic equation 
takes on a one-dimensional character in the form studied in this paper. 

Since the asymptotic boundary condition of the Knudsen layer is given by the 
Chapman-Enskog equations, the asymptotic form of the particle distribution function 
is nearly Maxwellian. If we also assume that the effect of the body surface is to re-emit 
molecules described by a suitably chosen Maxwellian distribution and that the macro- 
scopic variables do not vary appreciably throughout the Knudsen layer, a linearization 
scheme for the one-dimensional kinetic equation in the sense described in sections 2 
and 3 is justified. Based on the constant collision frequency BGK model, the pertinent 
linearized kinetic equation for the Knudsen layer is that given by equation (3.7). The 
velocity-slip (or Kramers problem) for this equation for a diffusely reflecting wall has 
been solved exactly by Cercignani[9] and an accurate velocity-slip coefficient has been 
calculated, [1]. Although approximate analyses of the associated temperature slip prob- 
lem have been reported by a number of authors [2, 19, 23, 28, 29], an accurate calcula- 
tion of the temperature-slip coefficient has not been previously reported. Since the 
temperature-density effects for the problem for a diffusely reflecting wall are un- 
coupled from the transverse momentum effects, we will show that an accurate determi- 
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nation of the temperature slip coefficient for steady gas-kinetic motion may be effected 
by using the method of elementary solutions and the half-range expansion theorem de- 
veloped in this paper for the vector integrodifferential equation (4.1). 

It is straightforward to demonstrate that the heat flux in the normal direction in the 
Knudsen layer is a constant and since the Chapman-Enskog solution relates the heat 
flux linearly to the temperature gradient, to match the Chapman-Enskog region and the 
Knudsen layer it is only necessary to consider an asymptotic boundary condition with a 
constant temperature gradient. It is interesting to note that such an asymptotic bound- 
ary condition, as far as the temperature-density effects are concerned, can be satisfied 
by taking the asymptotic perturbation distribution function to be 


hasy (X, C) 


s\ + cl — 1 




(13.1) 


where the <P ' a s and ^s are the discrete solutions to equation (4.1), and c 2 , c 3 are the 
components of the dimensionless particle velocity in the transverse directions. Since 
the Chapman-Enskog theory requires the medium to obey the perfect gas law and the 
pressure in the Knudsen layer far from the wall is a specified constant, we deduce from 
the definitions 


n a sy(x) = J h asy (x, c) e _c2 d 3 c, (13.2) 

and 

Tasy(x) = §ir~ 3/2 j h asy (x, c)(c 2 - 1) e”‘ ‘ d'c, (13.3) 

the requirements 

A,= - VIA, and A„ = -V5A3. (13.4) 

For an asymptotic temperature gradient of unity, it is clear that the temperature slip 
coefficient £ defined by T a , y ( 0) = ^(d/dx)T (Jvy (x)| t 0 will be given by £ = e'L [ 19], where 

e' = VU„ (13.5) 

/, = (4/5)(5V/nk)(m UkT)' n is a mean free path, and 3£ is the thermal conductivity. 
For a diffusely reflecting wall, the boundary condition at x = 0 requires 

[ El 4 2 roc 

0 J = 2 + 2 J A a (Tj)<£ a (i7, M) dry, ^ €(0,»). (13.6) 

The unknown constant B is related to the density of the gas near the wall and need not 
be specified for temperature-slip coefficient calculations. We make use of equation 
(13.4) and the specified asymptotic temperature gradient to write equation (13.6) as 

2 

\1<P 3 (m)-^(m)=A,«J) i (m) + (A 2 -B)0 2 (k)+ 2 A.(Tj)4>„(ii,/i)dTj. 

a = 1 JO 


(13.7) 
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Theorem 3 and equation (10.16a) enable us to solve equation (13.7) for A x : 

A,= f e,(n)[Vl<P 3 ( f i)-<p4(n)]e-'‘’ nd/*- (13-8) 

JO 

It is clear from the definition of that A, may be expressed in terms of 

appropriate moments of the H matrix discussed in section 1 1. The numerical procedure 
used to evaluate integrals involving the H matrix was given in section 12. We find 

e' = §77 1/2 (M 7597). (13.9) 

This compares with the variational result of e' = hr" 2 (1*1621), [2, 19, 23], Wang Chang 
and Uhlenbeck’s result of e' =hr x ' 2 (M50), [28], and Welander’s value of e' =hr in 
(1*1 73), [29]. We believe our result to be accurate to the number of significant figures 
quoted. 
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Resume — La methode des solutions elementaires est employee pour resoudre deux equations integro- 
differentielles couplees pour la determination des eflfets du rapport temperature-densite, dans un modele 
BGK linearise dans la theorie cinetique des gaz. L’etat complet de tout le domaine et les theoremes 
d’orthogonalite sont demontres pour les modes normaux developpes et la fonction de Green pour un milieu 
infini est etablie comme illustration du formalisme sur tout le domaine. 

Le probleme de Riemen approprie a une matrice homogene est etudiee et I’etat complet de tout le domaine 
et les theoremes d’orthogonalite sont demontres pour un certain sous-systeme des modes normaux. Les 
theoremes necessaires d’existence et d’unicite concernant la matrice H, fondamentale pour l’analyse du 
domaine complet, sont demontres et une methode de calcul precise et efficace est presentee. Le probleme du 
glissement de temperature d'un demiespace est resolu analytiquement et une valeur tres precise du coefficient 
de glissement de temperature est donnee. 


Zusammenfassung — Das Verfahren elementarer Losungen wird verwendet, urn zwei gekuppelte Integro- 
differentialgleichungen zu losen, die geniigen, urn die Temperatur-Dichtewirkungen in einem linearisierten 
BGK-Modell in der kinetischen Theorie von Gasen zu bestimmen. 

Vollbereichs-Vollstandigkeits- und Orthogonalitatstheoreme werden fiir die entwickelten Normalformen 
bewiesen und Green’s Funktion des unendlichen Stoffes wird als eine Illustration des Vollbereichsformalis- 
mus konstruiert. 

Das entsprechende Riemann’sche Problem einer homogenen Matrix wird besprochen und Halbbereichs- 
Vollstandigkeits- und Orthogonalitatstheoreme werden fiir eine bestimmte Untergruppe der Normalformen 
bewiesen. Die fiir die H-Matrix belangreichen erforderlichen Existenz- und Eindeutigkeitstheoreme, grund- 
Iegend fiir die Halbbereichs-Analyse, werden bewiesen, und eine genaue und wirksame Berechnungsmethode 
wird besprochen. Das Temperaturgleitproblem des Halbraumes wird analytisch gelost und ein sehr genauer 
Wert des Temperaturgleitkoeffizienten wird berichtet. 


Sommario — II metodo delle soluzioni elementari viene usato per risolvere due equazioni integrodifferenziali 
accoppiate, sufficienti a determinare gli effetti della densita di temperatura in un modello BGK linearizzato 
nella teoria cinetica dei gas. 

Vengono dimostrati i teoremi della completezza e dell’ortogonalita su tutta la gamma per i modi normali 
sviluppati e, per illustrare il formalismo sull’intera gamma, viene costruita la funzione di Green per un mezzo 
infinito. 

Viene discusso il problema di Riemann per una matrice omogenea appropriata e, per un certo sottoas- 
sieme dei modi normali, vengono dimostrati i problemi di completezza e ortogonalita per la semigamma. Ven- 
gono dimostrati i necessari teoremi di esistenza e unicita relativi alia matrice H, fondamentali per 1’analisi 
della semigamma, e viene discusso un metodo di calcolo accurato ed efficiente. II problema 
temperatura/scorrimento del semispazio viene risolto analiticamente e viene dato un valore molto accurato 
del coefficiente temperatura/scorrimento. 


AGcTpaKT — IlpHMeHeH mctoa 3JieMeHTapHbix peuieHHH ajib peineHHji AByx HHTerpo-AH(j)(j)epeHUHanbHbix 
ypaBHeHHH ztocTaTOHHbix ajib onpeAeneHHa 3(jxi)eKTOB TeMnepaTypbi h n/iOTHOCTH b jiHHeapH30BaHH0ft 
MO,aejiH (BGK) b KHHeTHHecKoit xeopHH ra30B. AaHbi AOKa3aTenbCTBa TeopeM 06 o6meft nojiHOTe h opio- 
roHajibHOCTH j\jih pa3BHBaeMbix HopMaJibHbix pokhmob, nocrpoeHa (JjyHKUHB TpuHa ajib 6ecK0HeHH0ft 
cpeAbi b KanecTBe HjiAiocTpauHH o6mero (l)opMa.nH3Ma. 06cy)KAeHa cooTBeTCTByiomaB pHMaHOBCKaB 
npo6jieMa oahopoahoh MaTpwubi, AaHbi AOKa3aTeAbCTBa TeopeM o noAOBHHHoft nojiHOTe h opioroHajtb- 
hocth a jib onpeAejieHHOM noACHCTeMbi HopMaJibHbix pokhmob. ^0Ka3aHbi HCKOMbie TeopeMbi o cymecTBO- 
BaHHH H eAHHCTBeHHOCTH OTHOCHTCJlbHO MaTpHUbI //, JIOKaLUHC B OCHOBe aHaJTH3a IIOJlOBHHHOii nOJIHOTbl, 

a TaKBce obcyacAeH TOHHbiH pauHOHajibHbifi mctoa BbiHHCJieHHB. AHajiMTHnecKH perneHa npo6neMa no^y- 
npocTpaHCTBeHHoro cKOJibaceHHB h TeMnepaTypbi, coo6iacho BbicoKOTOHHoe 3HaneHHe K03(J)(l)HUMeHTa 
CKOJibBceHHB h TeMnepaTypbi. 
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In view of experimental considerations, we give a model-independent argument that the novel tricritical 
points in multicomponent fluid mixtures, where three phases simultaneously become critical, are points 
on the boundary of a single two-dimensional surface of critical points. This result is corroborated by the 
Landau model suggested by Griffiths. The relationship between these tricritical points and the complex 
“higher-order” critical points proposed to exist in certain magnetic systems is elucidated. 


I. INTRODUCTION 

In 1970 Griffiths 1 proposed the concept of a 
tricritical point as being the point of intersection 
of three lines of critical points in a phase diagram 
using intensive thermodynamic variables. He 
further suggested, as examples, metamagnets, 2 
He 3 -He 4 mixtures, 3 and ammonium chloride. 4 
There has also been considerable speculation 1 * 5 
that similar points might exist and might be found 
in the phase diagrams of complex fluid mixtures. 
That such points have already been proposed and, 
indeed, that they had been investigated prior to 
1970 has recently been pointed out by Widom and 
Griffiths. 6 ” 8 A full and very complete discussion 
of experimental evidence for these points has been 
given in Refs. 6-8, and we refer the reader to 
these papers for details. 

A different way in which critical points more 
complex than tricritical points can occur has been 
shown to involve intersecting lines of tricritical 
points, and a classification of critical points has 
been introduced to differentiate these points from 
tricritical points or ordinary critical points. 5 The 
question has been raised 6 * 8 as to how the new points 
discovered in fluids are related to such a classifi- 
cation. 

Properties of the phase diagram 9 were the basis 
of the approach we suggested previously. 5 * 10 In 
particular, we emphasized the importance of the 
connectivity properties of different spaces of 
critical points and tricritical points. Accordingly 
it is the connectivity of the different critical points 
of multicomponent fluid mixtures in the space of 
truly intensive or “field” variables that we empha- 
size here. 
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II. DEMONSTRATION THAT ALL CRITICAL POINTS 
FORM A SINGLE CONNECTED SURFACE 

The basic idea is to consider a system where 
three distinct phases can be in equilibrium. These 
might be three liquids or two liquids and a vapor 
phase. On changing the thermodynamic variables 
(temperature, pressure, chemical potentials of 
different components) one pair of phases will be- 
come critical, in the presence of the third. In a 
binary system the point where this occurs is the 
end point of a line of critical points which bounds 
the surface of points where the two phases coexist. 
There are no degrees of freedom and such a point 
is unique in the phase diagram. 7 

In a ternary, quaternary, or more complicated 
system this point has one or more degrees of 
freedom. Thus a line of “critical end points” 
is possible. Such a line is the boundary of a sur- 
face of critical points where two phases are criti- 
cal. 

In the particular systems of interest it is pos- 
sible, by varying physical conditions, to make a 
different pair of the three phases become critical 
in the presence of the third, thus producing a 
second line of critical end points. 

Finally, by achieving exactly the correct physi- 
cal conditions it is possible for all three phases 
to become critical simultaneously. In a ternary 
system such a point is unique; there are zero 
degrees of freedom. Here, only this and similarly 
simple cases are considered. 

Experimentally there is the following arrange- 
ment. A tube containing a three -component mix- 
ture with a three-phase system is cooled to ob- 
serve the appearance of successive phases. We 
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will call these phases a t /3, and y, where for 
purposes of argument p a <p&<p y . The ratio of the 
various components is varied until the second 
meniscus appears via a critical mode. This could 
be the lower meniscus in which case phases y and 
P become critical at a lower temperature. If 
pressure, temperature, and one other intensive 
parameter are allowed to vary, a phase diagram 
of the type shown in Fig. 1(a) will be observed. 

At the point P, the phases y and p become critical 
in the presence of a third phase a. If pressure is 
increased, the lightest phase a will disappear and 
a line of critical points between phases y and p 
will develop. For increasing temperatures above 
P, there will be a line of critical points bounding 
the surface of coexistence points which separates 
the region of light phase a from the region of the 
heavier phase y/3. 

By varying the ratios of components appropriate- 
ly, it is possible, in the physical systems of 
interest, to make the upper meniscus, separating 
phase p from phase a, appear second on cooling. 
The corresponding phase diagram is shown in 
Fig. 1(c). Again there is a special point P' which 
is the end point of a line of critical points for 
phases p and a?, and which is also the end point 
of the line of points where three phases coexist. 

If the temperature is increased above P' then the 
coexistence surface separating phase y from the 


combined phases pot will terminate in a line of 
critical points. 

If the transition to the phase diagram of Fig. 

1(c) happens by a continuous variation from Fig. 
1(a) then there must be a situation where both 
menisci become critical simultaneously. 

The corresponding phase diagram is shown in 
Fig. 1(b). It may be seen that the point P of Fig. 
1(a) has migrated along the coexistence surface 
to the point P t on the boundary. At the point P t all 
three lines of critical points, a (y/3 critical), 
b (ya critical), and c (pa critical) meet. 

The purpose of constructing Figs. l(a)-l(c) is 
to consider the behavior of the critical surface in 
the immediate neighborhood of the tricritical point 
P t , and the figures should therefore be understood 
to represent the phase diagram close to P t and not 
far away from the tricritical point. Also, since 
our primary interest is the connectivity of the 
surface of critical points, and not its specific 
shape, we do not have to choose the variables 
precisely, since the connectedness would remain 
unchanged even if different variables were chosen. 
[Similar remarks apply to Figs. 2(a) and 2(b) in 
what follows.] 

We can now demonstrate that the lines of critical 
points a,6,c in Figs. 1(a) -1(c) form a single con- 
tinuous surface of critical points bounded by the 
line of critical end points P-P t -P' . Consider a 



V 


V 




FIG. 1. Three-dimensional subspaces of the full four-dimensional space of field variables of a three-component 
system (or of five dimensions for four components) . The variable t may be thought of as the temperature, the variable 
v as the pressure, and the third variable u as a suitable combination of chemical potentials. We use the notation of Ref. 
5 to indicate lines and surfaces of critical points in the diagram. Lines of critical points are indicated 2 R { (order 2, 
dimension 1). Coexistence surfaces are indicated by 1 X 1 (two phases and dimension 2). (a) Section containing a point P 
where the two heavier phases y, p are critical in the presence of the lightest a, as represented by the schematic tube 
showing the y/3 meniscus critical and the pet meniscus stable, (b) Section through the point P t where all three phases 
become critical simultaneously, the y/3 and pa menisci are simultaneously critical in the schematic tube, (c) Section 
containing a point P' where the lighter phases p, a are critical in the presence of the heaviest y, as shown in the 
schematic representation. 
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point on line a in Fig. 1(a); move continuously 
through Figs. 1(b) to 1(c). Now move along the 
line a-b to a point at the “b” end, and now move 
along continuously through Figs. 1(b) to 1(a). Still 
being on line 6, we can move along the line b-c 
to the “c” end. Now move continuously through 
Figs. 1(b) to 1(c) and our assertion is demon- 
strated. We have not passed through the point P t 
and so the lines a, b , c form sections of a single 
continuous surface of critical points bounded by 
lines of critical end points P -P t -P'. 

The fact that there is only a single surface of 
critical points is also corroborated by the model 
of Griffiths 8 (see his Fig. 3). This fact is in strong 
contrast to the metamagnet where it is not possible 
to go from a point on the wing boundaries to a 
point on the physical critical line without passing 
through a tricritical point 1,10 and the spaces of 
critical points are distinct and separate. 

It will be plausible to conjecture that since all 
the critical points form a single surface, the criti- 
cal-point exponents are the same at all critical 
points except the tricritical point itself. In con- 
trast, for a metamagnet no reasons have been 
presented for why the critical -point exponents 
should be the same along all three of the critical 
lines meeting at the tricritical point. However, 
it has been suggested 11 that for most tricritical 
points the existence of a hidden variable linking 
the wing boundaries to the physical critical line 
(the variable called a 3 by Griffiths 8 ) might force 
the equality of exponents. 

III. MODEL SURFACE OF CRITICAL POINTS 

The phase diagrams of Figs. l(a)-l(c) were 
three dimensional and so parametrizing them with 
an extra field variable introduces a fourth dimen- 
sion to the phase diagram. The connectivity, and 
other properties, of the surface of critical points 
formed by the critical lines a, 6, c of Fig. 1, are 
most easily studied in a three-dimensional sub- 
space of the full phase diagram which contains the 
whole critical surface. The shape of the critical 
surface in such a subspace may be determined as 
follows. 

Consider the critical lines as they appear on the 
paper in Figs. l(a)-l(c) and consider how these 
lines would form a smooth surface in three di- 
mensions if the extra parameter were used to plot 
the height of the paper, with Fig. 1(c) above 1(b) 
above 1 (a). By this combined projection and 
motion we generate a single connected surface of 
critical points with a boundary formed by the line 
of points P-P t -P' . 

A surface, which is topologically equivalent to 

the surface of critical points thus obtained, is 


shown in Figs. 2(a) and 2(b). Fig. 2(a) is a con- 
tour map of the surface, and the heights h of the 
contours are given by the hyperbolae xy -h. The 
boundary of the surface P-P*-P' is represented by 
the parabola y = -cx 2 in the lower half of Fig. 2(a). 
The topological equivalence of the surface of Fig. 
2(a) to the surface of critical points may be seen 
as follows. 

Consider a section of Fig. 2(a) at constant height 
h . If h> 0 there are two hyperbolae, one in the 
upper right quadrant and one which terminates on 
the portion of the parabola labeled P in the lower 
left. This is a representation of Fig. 1(a) for 
which there are two critical lines, one labeled 
(a) terminating at P and another labeled (b-c). 

If h<0 there are again two hyperbolae, one in 
the upper left quadrant which corresponds to the 
line of critical points (a,b) of Fig. 1(c), and one 


b 



FIG. 2. Section of the four-dimensional space of field 
variables containing the full surface of critical points. 
The surface is represented by a contour map of hyper- 
bolae and is fully explained in the text. The variables x 
and y are suitable field variables, (a) Boundary of the 
surface is smooth at P t . The lines of critical end points 
P, P' form a smooth line in the four-dimensional space, 
(b) Boundary of the surface is cusplike at P t . The lines 
of critical end points P,P' form a cusp in the four-di- 
mensional space. 
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in the lower right quadrant of Fig. 2 which cor- 
responds to the critical line c terminating at P 
in Fig. 1(c). 

When h- 0 the hyperbolae degenerate into the 
three axes, forx<0, y>0, and * > 0 corresponding 
to the lines a y b y c of Fig. 1(b) which terminate at 
Pf 

Accordingly, in Fig. 2, the ends of the hyper- 
bolae are labeled a y b y c according to the parts of 
the critical lines in Fig. 1 to which they corre- 
spond. 

The complete topological correspondence be- 
tween the sections of the surface in Fig. 2 and the 
critical lines of Fig. 1 is therefore clear. The 
points P y P t y P' are a line forming a boundary of 
the surface of critical points, and the point P t , 
which is the tricritical point, corresponds to a 
saddle point of the surface in the projective space 
of Fig. 2. 

It may seem that a very special space has been 
chosen, and that the boundary has been made to go 
in a very special fashion— through the saddle point. 
However, this is merely in accordance with the 
following general physical requirements: (i) Only 
one point P occurs in each phase diagram; there- 
fore the boundary has to pass from the lower left 
quadrant to the lower right quadrant without 
passing through the upper two quadrants; (ii) Criti- 
cal lines only split or end at a point like P . Thus 
the point P has to pass through the origin where 
the section would otherwise necessarily give four 
lines of critical points intersecting. 

This analysis of the critical points as a single 
surface provides another viewpoint from which to 
understand the fact that only two pairs of the three 
possible pairs of phases became critical in the 
presence of the third. The simplest viewpoint is 
that of the test tube itself. If the phases a, /3, y 
are ordered in increasing density, then (a, /3) can 
be critical (same density) in the presence of y, 
and (/3y) can be critical in the presence of o?, but 
(cuy) cannot be critical and of equal density without 
the phase /3 having a density equal to both. Thus 
the possibility (ay) critical in the presence of (1 
is eliminated. Widom 7 has related this fact to the 
geometric asymmetry of the solid figure containing 
three distinct phases a, /3, y at constant tempera- 
ture less than the tricritical temperature. 

In terms of the phase diagrams in spaces of 
truly intensive variables (Widom used densities, 
or extensive variables), the existence of two lines 
of critical end points instead of three has a very 
simple topological interpretation: the boundary of 
a single surface is locally divided into two sepa- 
rate parts by the removal of a single point. Thus 
the tricritical point P t divides the boundary of the 
surface of critical points into two lines of critical 
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end points but cannot divide it into three different 
lines of critical end points. 

IV. SPECIAL DIRECTIONS 

It was shown by Griffiths 8 that in his model there 
are four variables of scaling, each with different 
exponents at the special point. From a purely 
phenomenological point of view one can define 
four different directions at the special point P t in 
the same spirit as Griffiths and Wheeler. 9 From 
Fig. 2 it may be seen that these directions are 
(i) the limiting “strong” direction for the surface 
of critical points, (ii) the limiting “weak” direc- 
tion for the surface of critical points, (iii) the 
tangent to the line of critical end points at the 
tricritical point, and (iv) the limiting second direc- 
tion parametrizing the surface of critical points. 
These correspond to the variables called a ly a 2y 
a 4y and a 3y respectively, by Griffiths. 8 


V. TRANSLATION TO COMPOSITION VARIABLES 

The variables over which the experimentalist 
has easy control are unfortunately not the intensive 
field variables like the chemical potentials, but 
only the densities. In these variables the phase 
diagrams have been discussed by Widom. 7 It has 
been pointed out by Griffiths 8 that the precise 
composition of the tricritical point P t probably 
does not coincide with the composition of the 
regions of coexistence of three phases at tempera- 
tures smaller than the temperature at P t . 

Such behavior has probably been observed in the 
system carbon-dioxide-methanol -water because 
when a constant volume specimen (i.e., a sealed 
tube) of precisely the correct composition is in- 
creased in temperature, one does not observe the 
simultaneous disappearance of two menisci. In- 
stead 12 one meniscus disappears critically and 
simultaneously a second appears critically. This 
remarkable behavior does not change any of our 
geometric conclusions, because it can be inter- 
preted as follows: the constant volume, constant 
composition path does not follow the line of points 
where three phases coexist in Fig. 1(b), but rather 
it passes from one coexistence surface (y, j3) to 
another (a?, /3) directly through the point P t . 


VI. RELATIONSHIP TO OTHER COMPLEX SYSTEMS 

In previous work 5 ’ 10 we have given several ex- 
amples of complex magnetic systems and we have 
attempted to systematically classify all the coex- 
istence and critical points in such systems. For 
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points where several phases coexist without being 
critical this is relatively simple, since the ap- 
propriate quantities are the number of coexisting 
phases and the dimensionality of the space. These 
are related to the total number of thermodynamic 
intensive variables by the phase rule. 5 

For critical points, it can be argued that every 
phase that becomes critical after the first two 
implies the loss of an extra degree of freedom 
in addition to the one lost because of coexistence. 7 
Hence if there is a system with n thermodynamic 
variables possessing a point where p phases are 
in coexistence, of which q are critical (altogether 
rather than in two separate groups q y and q 2 , al- 
though the generalization to such cases is simple). 
The dimensionality of the space on which this 
occurs will be given by 

d = n-(p (1) 

where m = max(q -1,0) since the case q = 1 is not 
meaningful and m = 0 if <7 = 0. As a special case if 
all p of the phases are critical we obtain d-n-v 2 
-2p. 

While this equation holds for fluids, it is vio- 
lated by the original tricritical points, for which 
n-p- 3, d- 0 and also by certain magnetic models 10 
which contain highly symmetric points where lines 
of tricritical points intersect, and n = p = 4 and 
d~ 0. Before giving the equation which correctly 
describes both fluids and the complex magnetic 
systems let us contrast the two ways of classifying 
more complicated critical points that have been 
proposed. 

For fluids Widom 7 has proposed that the impor- 
tant quantity is the number of phases becoming 
critical, and that this number should be used as 
the order of the critical points. 

For complex magnetic systems we have proposed 
an apparently different scheme which is based on 
the original proposal for tricritical points 1 where 
three different lines of critical points intersected. 
Accordingly we gave examples of systems where 
different lines of tricritical points intersected, 
and gave the points of intersection an order dif- 
ferent from (one larger than) that of tricritical 
points. Because of the symmetry of the various 
systems we investigated, there were no lines 
of critical end points, i.e., points where one or 
more phases coexist with others that are critical. 
Consequently the number of variables n needed to 
obtain a point where four phases are simultaneous- 
ly critical was reduced from six to four. 

For tricritical points in fluids, it is possible to 
artificially reduce the number of variables and 
eliminate the lines of critical end points from the 
phase diagram. For example, Fig. 1(b) is an 
illustration of this since it is a three-dimensional 


section of the four-dimensional field space with 
all lines of critical points ending at the tricritical 
point. Similarly the h- 0 section of Fig. 2 produces 
the same result. Griffiths 8 has shown how a simi- 
lar phase diagram can be obtained by taking the 
section a 3 = 0 of his four-dimensional phase dia- 
gram with variables a 19 a 2 , a 3 , a 4 . 

Let us now return to the case of the intersecting 
lines of tricritical points in the variable inter- 
action metamagnet. It has been shown 10 that the 
point of intersection (the point of order 4) is a 
point where four phases become simultaneously 
critical. Thus in this case the definition of order 
suggested by us coincides with the definition sug- 
gested by Widom. 7 This fact may be generalized, 
because the only reason there should be more than 
one line of tricritical points is because there are 
more than three phases available. The different 
lines of tricritical points will intersect at points 
where more than three phases become simulta- 
neously critical. 

To obtain a version of Eq. (1) which is satisfied 
by all the cases considered so far, it is necessary 
to consider the number of variables which possess 
nonzero scaling power at the point under consider- 
ation. It is important to note that this number may 
be less than the number of significant directions 
picked out by the phase diagram. For example, 
on an ordinary line of critical points three direc- 
tions are determined, but only two (the strong 
and weak) are associated with variables which 
scale. Alternatively, on the line of critical end 
points P,P ( ,P', all four of the directions (i)-(iv) 
are defined but only (i) and (ii) are associated 
with variables which scale (except at P t where all 
four enter the scaling equation). The implications 
of the simple Landau model 8 are that for fluids 
the number of scaling directions s =2{q - 1). 

Another quantity that is important is the number 
of phases which are in equilibrium but which are 
not critical, x = p - q. In terms of the variables 
s and x , Eq. (1) may be rewritten as 13 

s+x+d=n. (2) 

It will be seen that this equation also holds for 
the old tricritical points, and the intersection of 
lines of tricritical points. It is satisfied by con- 
struction from (1) by all the points in generaliza- 
tions of Widom’s scheme for which the order is 
given by 0 = q = £s+ 1 and by all the points in our 
scheme 5 for which the order is given by 0=s. 

These two possibilities express, respectively, 
the maximum and minimum number of scaling 
variables at a point where 0 phases became criti- 
cal, 0<s^2(0-l). For 0 = 2 there is only one 
possibility, s =2; for 0 = 3 there are two cases, 
s=3,4; and for 0>3 there are many possibilities. 
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Thus we have proposed 5 a minimal scheme for 
complex critical points whereas Widom and Grif- 
fiths have proposed a maximal scheme. 

In conclusion it should be reiterated that while 
the definition of order for critical points suggested 
in Ref. 5 does not appear to be applicable to fluids, 
it is consistent with the definition in terms of the 
number of phases becoming critical. 7 
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Generalized Scaling Hypothesis in Multicomponent Systems. I. Classification of Critical 
Points by Order and Scaling at Tricritical Points 5 
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The goal of this work is to provide an analysis of spaces of critical points for multicomponent 
systems. First, we propose the geometric concept of order 0 for critical points; we distinguish it from 
a previous definition of a “multicritical” point. Specifically, we may define the intersection of spaces of 
critical points of order 0 to be a space of critical points of order (0 + 1). Ordinary critical points are 
defined to be of order 0=2, so that the tricritical points introduced by Griffiths are of order 0 = 3. 

We discuss more general examples of critical spaces of order 0 = 3 which are known for a wide variety 
of systems; we also propose several examples of models of magnetic systems showing critical points of 
order 0= 4— i.e., systems having intersecting lines of tricritical points. The analysis of critical and 
coexistence spaces also provides a new form of the Gibbs phase rule suitable for complex magnetic 
models. Next we define — for the critical points of order 0 of which examples have been given — special 
directions in terms of which to make a scaling hypothesis. We give the hypothesis for simple systems 
and then for tricritical points, and then, in a subsequent paper, part II, the special directions are used 
to make a scaling hypothesis at spaces of critical points of any order. Certain predictions (e.g., scaling 
laws and “single-power” scaling functions) follow in a simple and straightforward fashion. We consider 
the scaling hypothesis at a critical space of order 0 in terms of a group of transformations. We can 
define a set of invariants of the group. It is possible, for © > 3, to make a second scaling hypothesis 
for the space of order 0 — 1 using certain of these invariants as independent variables. This is 
advantageous because certain “double-power” scaling functions then follow directly; these predict that 
for 0 = 3, experimental data collapse from a volume onto a line. This prediction is to be contrasted 
with ordinary scaling functions, which predict that data collapse by only a single dimension (e.g., from 
a volume onto a surface or from a surface onto a line). 


I. INTRODUCTION: THE ORDER OF A CRITICAL POINT 

The purpose of this work is (i) to propose the 
concept of the “order” of a critical point, (ii) to 
give examples of critical points of orders three 
and four, and (iii) to present a form of the scaling 
hypothesis for spaces of arbitrary order. The 
work is divided into two parts. In this paper (I), 
we focus upon concrete examples illustrating criti- 
cal points and scaling at critical points of order 
three, while in a subsequent paper 1 (n), we con- 
sider scaling for spaces of arbitrary order. First- 
ly, we must develop the concept of the order of a 
critical point, and that is the task of this section. 

The scaling hypothesis was originally formulated 
for the critical point of a simple magnet and a sim- 
ple fluid . 2 "“ 4 These systems each have two purely 
intensive variables [(//, T) and (P, T), respective- 
ly]. Such variables we call fields , adopting the 
terminology of Griffiths and Wheeler . 5 

A very wide variety of physical systems whose 
critical phenomena are under active study have 
more than two field variables; two common exam- 
ples are antiferromagnets and binary mixtures. 

In such systems, one can have lines (or, in gen- 
eral, spaces of dimension larger than one) of crit- 
ical points. Recently, special attention has come 
to focus on those systems for which three lines of 

8 


critical points intersect, and the point of intersec- 
tion has been called a tricritical point by Griffiths . 6 

The scaling hypothesis has recently been ex- 
tended 7 to treat some (but not all) aspects of this 
novel type of “critical point”. In this work we 
present a comprehensive scaling treatment of gen- 
eral multicomponent systems. First we give a 
detailed treatment of tricritical points. Our ap- 
proach is then generalized to more complex situa- 
tions. 

One example of a more complex situation is a 
system for which four lines of critical points inter- 
sect; in a natural extension of Griffiths’s termi- 
nology, Nagle and Bonner 8 have called such points 
tetracritical points. We show here that, in the 
particular case studied by those authors, the tetra- 
critical point is qualitatively the same as a tri- 
critical point in the sense that the formulation of 
the scaling hypothesis there is the same as at tri- 
critical points. 

Qualitatively different points (“spaces ”) 9 can be 
achieved in systems with more than three field 
variables; a more general scaling hypothesis is 
needed and correspondingly more predictions are 
obtained. These are discussed in detail in Paper II. 

Two simple examples of systems with more 
than three field variables are provided by He 3 -He 4 
and ammonium chloride, and both these systems 

346 


8 


GENERALIZED SCALING HYPOTHESIS IN... 


347 


show lines of tricritical points. 

Liquid He 3 - He 4 mixtures have thermodynamic 
variables [P, T y p 4 - p 3 , 17], where P denotes pres- 
sure, T denotes temperature, p 4 and p 3 are the 
chemical potentials of He 4 and He 3 , respectively, 
and 77 is a variable conjugate to the superfluid den- 
sity. The “X line ” in the P-T plane becomes a 
two-dimensional surface of singularities with in- 
creasing mole fraction of He 3 . This surface termi- 
nates at a line of special points, 10(a> which is in 
fact a line of tricritical points. 

Ammonium chloride possesses an order-disorder 
transition for which the transition temperature in- 
creases with increasing pressure, and changes 
from first order to second order at a tricritical 
point. If one replaces some of the hydrogen by 
deuterium in the ammonium group, 10(b> then the posi- 
tion of the tricritical point (and the whole line of 
order-disorder transitions) changes. The variables 
are thus (P, T, n H - p D , V), where 77 is a variable 
conjugate to the order parameter. 

In a system of sufficient complexity, several 
lines of tricritical points can occur. A point of 
intersection of lines of tricritical points is qualita- 
tively different from a point where lines of ordinary 
critical points intersect. This should be clear 
from the topology of the situation: At a line of tri- 
critical points, surfaces of critical points meet, 
while at a point where lines of tricritical points in- 
tersect, several surfaces of critical points (bounded 
on each side by the tricritical lines) converge on 
the point. 

To distinguish such points— and in general spaces 
of such points— we will refer to them as critical 
points of higher order, and we will associate a 
number with each order as follows. We define 
ordinary critical points to be of order 0 = 2; then a 
critical point (or space of points) of order 0 + 1 (0 
^2) is defined to be a special point where lines (or 
spaces) of points of order 0 intersect. Thus a tri- 
critical point is of order 0=3 and a point of inter- 
section of lines of tricritical points is of order 
0 = 4. 

Griffiths and Wheeler 5 reasoned that the dimen- 
sionality of a space of ordinary critical points (of 
order 0= 2) is {n - 2). In the systems we consider 
below the dimensionality, d, of a space of critical 
points of order 0 is always one less than the dimen- 
sionality of the spaces of critical points of order 
( 0 - 1) which intersect at it. Therefore, we find the 
value of d for arbitrary 0 by induction from 0 = 2 to 
be, in these cases, 

d=n-0, (1.1) 

where n is the total number of field (and fieldlike) 11 
variables available. 

Critical points of complex thermodynamic sys- 
tems can also be analyzed by making the scaling 


hypothesis from the outset. The significant quan- 
tity is then the number of relevant scaling vari- 
ables. Using the renormalization group, it has 
been suggested 12 how more than two relevant scal- 
ing variables can occur, but the geometry of the 
phase diagram was not considered at all. In most 
of the examples known to the authors, the number 
of significant scaling directions is equal to the or- 
der. This may not always be true for more com- 
plex systems [e.g. , fluid mixtures, for which Eq. 
(1.1) may need modification, becoming d - 0 ] . 

A specific example which demonstrates the im- 
portance of distinguishing the order of a critical 
point from the number of critical lines meeting 
there is the tetracritical point. This is a point of 
order 0 = 3 with true field variables (H t H z , T), 
where H and H z are direct and staggered (i. e. , 
wavelength 2 lattice sites) magnetic fields. When 
a fieldlike variable (h (the ratio of short- to long- 
range- interaction strengths) is also included, (i.e. , 
n- 4), Eq. (1. 1) indicates that the system has a 
line of critical points of order 0 = 3. This is veri- 
fied in the analysis of Sec. in, where it is shown 
that in this model there are three surfaces of criti- 
cal points of order 0 = 2, meeting at the line of 
points of order 0 = 3. The tetracritical point is 
simply a point on a smooth line of tricritical points; 
the “tetracritical point” arises because we have 
chosen a section of the four-dimensional (P, H z , T , 
(ft) space that is tangent to the line of tricritical 
points, rather than a section which intersects it. 

First we give, in Sec. n, examples of systems 
exhibiting spaces of critical points of order 0^3, 
and explain a convenient notation for the phase dia- 
grams of such systems. This leads to an equation 
equivalent to the Gibbs phase rule. 

In Sec. IH we explicitly demonstrate the impor- 
tance of distinguishing between the order of a criti- 
cal point and the number of lines meeting at a crit- 
ical point— the former leads to an essential increase 
in complexity, while the latter does not. To do 
this, we compare several one-dimensional Ising 
models with long-range interactions, all of which 
are exactly soluble. 

Special directions at spaces of order 0 are de- 
fined in Sec. IV; these are analogous to the strong 
and weak directions defined by Griffiths and Wheel- 
er. 5 A way of deriving these directions for tricrit- 
ical points using the renormalization group ap- 
proach has been pointed out by Riedel and Weg- 
ner. 12(c) 

To make the formulation of a scaling hypothesis 
easier to follow, we give an account in Sec. V of 
the scaling hypothesis using generalized homoge- 
neous functions and equations invariant under a one- 
parameter continuous group of transformations at 
points of order 2. 

In Sec. VI we give a full account of the scaling 
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hypothesis at tricritical points and we include an 
account of a space of invariant variables as a very 
useful way to derive “double-power ” scaling func- 
tions and to plot “crossover surfaces”. These 
predictions have not yet been tested experimentally. 

We present the scaling hypothesis at a critical 
point of arbitrary order in Paper II. The hypothesis 
is framed as a sequence of operations to be re- 
peated as the hypothesis is formed successively at 
critical points of decreasing order. The proposed 
sequence is illustrated by detailed consideration of 
a system of Ising planes with a variable interplanar 
interaction. 

II. SYSTEMS EXHIBITING CRITICAL POINTS OF ORDER 
HIGHER THAN TWO: NOTATION FOR SUCH POINTS 

Critical points more complex than ordinary 0=2 
critical points have been found in many experimen- 
tal and theoretical systems. Without doubt, the 
systems exhibiting the richest possibilities are 
multicomponent fluid mixtures; however, specific 
examples of critical points of order three or more 
in these systems have yet to be found. 

Systems on which experiments have been anal- 
yzed are liquid helium, 10(a) ammonium chloride, 10<b) 
metamagnets, 13 and anisotropic antiferromagnets. 14 
In addition, one-dimensional magnetic models pro- 
vide a rich opportunity for theoretical and numeri- 
cal investigations. Liquid helium 10(a) and NH 4 C1 10(b) 
provide excellent examples where there exist lines 
of tricritical points— as discussed in Sec. I. In 
metamagnets, 13 lines of tricritical points can be 
generated by introducing transverse fields, and 
also by introducing a parameter into the Hamil- 
tonian which changes the strength of the interaction. 
Decreasing the latter causes the tricritical points 
to converge to a point on the temperature axis; this 
point is a critical point of order 4 and is treated 
in more detail below. 

An anisotropic antiferromagnet, 14 which exhibits 
a spin-flop transition, contains a point in its phase 
diagram where two lines of ordinary critical points 
intersect a line of first-order transitions. This 
special point has an order of at least 3, but whether 
it is 3 or more has yet to be determined. 

To be able to discuss phenomena in phase dia- 
grams of any complexity easily, we introduce a no- 
tation for spaces of points where several phases 
coexist and for critical points of arbitrary order 
0 . Critical spaces are denoted by an abbreviation 
of the notation CRS of Griffiths and Wheeler 5 ; the 
order of the space will be given a preceding super- 
script and the dimensionality a subscript, and 
hence a critical space of order 0 and dimensionality 
d is written as °R d . The relation between 0, d, 
and the total number n of field (or fieldlike) vari- 
ables, in general, is given by Eq. (1.1), 0 -n-d. 

Coexistence spaces are designated by an abbre- 
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viation of the Griffiths -Wheeler notation CXS but 
now the number of coexisting phases is given by 
the preceding superscript; hence the general space 
of dimension d where p phases coexist is written 
as p X d . The equation analogous to Eq. (1.1) is 

p = n-d+ 1. (2.1) 

The dimension d of the CXS may be interpreted 
as the number of “degrees of freedom”, /, and for 
a chemical system n is one greater than the number 
of components c. Thus (2. 1) is similar to the 
usual statement of the Gibbs phase rule, p>c-f 
+ 2, but it is in a form valid for all the systems 
considered in this work. The Gibbs phase rule 
contains an inequality because it refers to any 
phase diagram, even those in a restricted space 
of fields. For example, the Z X 2 in the H-T plane 
of a simple nearest- neighbor antiferromagnet (with 
field variables H y H 2 , and T) satisfies Eq. (2.1) 
as an equality providing all three fields are con- 
sidered, but as an inequality if only T and H are 
considered. Consideration of other models 8 ’ 15 
leads us to conclude that Eq. (2. 1) is satisfied as 
an equality (for T>0) if and only if a sufficient set 
of conjugate fields (i. e. , conjugate to every possi- 
ble phase of the system) has been introduced. 

Thus Eq. (2. 1) can be used as a criterion for 
whether enough conjugate fields have been consid- 
ered or not. It is noteworthy that Eqs. (1.1) and 
(2. 1) depend only on topologically significant quan- 
tities like the dimension of a subspace in the phase 
diagram, and should therefore be understood as 
topological statements. 

To illustrate the notation and to provide a good 
example of a system with a phase diagram exhibit- 
ing critical spaces of orders 2, 3, and 4, we con- 
sider the d- 3 Ising model with variable interaction 
strength (R J between planes of constant z : 

S Sx,y,z [ c ^('^x+l t y,* + ^x.y+l , e ) 
x,y,z 

+ <*JS x , yfr+1 + tf+ (-l)*tf 2 ]. (2.2) 

Here the symbol S x , y ,, is the value of the spin on 
lattice site with coordinates (*, y , z). The vari- 
able (R allows for a variation in the strength of in- 
teraction in the 2 direction. The phase diagram of 
this model is four dimensional, with fields H, H 2f 
T, and the fieldlike variable (R. For (R >0, we 
have a three-dimensional Ising model with “lattice 
anisotropy, ” which tends as (R — 0 to the two-dimen- 
sional Ising model. The invariance of the Hamil- 
tonian under the transformation S x , yiX -* (- l)*S XjytZ , 

- (R, H — H 2} and H Z -~H relates the phase dia- 
gram for (R < 0 to that for (R > 0. 

For(R<0, Eq. (2. 2) describes a metamagnet. 

The phase diagram of this system is well known 
and shown in Fig. 1. As I (Rl is decreased, the 
values of T t and T N decrease (unpublished results 
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FIG. 1. (a) Phase diagram for (R = (R 1 <0, in the (. H , T) 
plane (#' = 0). The 2 R { terminates at a pair of tricritical 
points ( 3 /? 0 ) shown as TCP. The 2 X 2 separating the anti- 
ferromagnetic phases A* A" is bounded below the tricritical 
temperature T t by the lines of first-order transitions L Ft 
which terminate at a magnetic field value H&. (b) The 

same for (fy < 0, where Ify I < I I • Note that H C 2 < H c\. 
and that both T t and T N have decreased. See also, F. 
Harbus etal., Ref. 1. 


of F. Harbus). This is shown in the Fig. 1(b) as 
compared to Fig. 1(a). 

As l(RI-0, the behavior of 7^(61) is described 
by the well-known crossover exponent and sym- 
metry between (R<0 and (R>0 mentioned above 
shows that in the plane H=H Z = 0 there is a reflec- 
tion symmetry about (R=0. 

From these considerations we obtain Fig. 2, 
which is a three-dimensional phase diagram in the 
H 2 = 0 plane. For (R<0 and constant, there is a 
phase diagram like Fig. 1, and for (ft>0 the ordi- 
nary crossover behavior holds. 

The two tricritical points in Fig. 1 become lines 
of critical points of order 3, Z R U in Fig. 2. The 
symmetry of the Hamiltonian shows that there are 
two additional *R X for (R>0 at nonzero H z . The 
symmetry of the Hamiltonian forces these four 
lines (tricritical lines) to converge upon a point 
lying on the temperature axis— a critical point of 
order 4. On the temperature axis below the A R Q 
four phases are in coexistence: it is a *X x . 

The validity of Eqs. (1. 1) and (2. 1) may be veri- 
fied and it can also be seen that in this system a 
p X d + x is bounded for increasing T by a °R d , where 
0 =/>. A CXS which in the full phase diagram is a 
p X d4l is, when considered in the zero-temperature 


plane, only a p X d . In the model considered in this 
section, therefore, a coexistence hypersurface 
which in the T=0 phase diagram is & p X d evolves 
as the temperature increases into an e R d , with 
0 = />. In other words, the space of critical points 
of order 0 is the upper bound (as temperature in- 
creases) of a space of points where e phases co- 
exist. 

This is a very significant point and can be under- 
stood by examples, and from the following consid- 
eration. In a phase diagram, a space where three 
phases coexist is necessarily a place of intersec- 
tion of spaces where two phases coexist . The spaces 
where two phases coexist are bounded from above 
by spaces of critical points of order two. There- 
fore, the upper bound of the space where three 
phases coexist is either the boundary of one criti- 
cal space of order 2 or the intersection of all three 
critical spaces of order 2. Because of the symme- 
try properties holding in the present model, and 



FIG. 2. Phase diagram in the H 2 = 0 hyperplane for Is- 
ing model with variable interplanar interaction. For (R 
<0 the (R= const sections are similar to Fig. 1. These 
sections are schematically shaded. As (R varies continu- 
ously the p X d and e R d of Fig. 1 become p X d + l and e R^\. 

Thus the 2 X 2 of Fig. 1 becomes the interior of the 'foun- 
tain”; this is a 2 X 3 separating phases A m . The lines 
L f where three phases coexist become surfaces of the 
mountain (?X 2 ) below the line of tricritical points 3 f?i cor- 
responding to TCP of Fig. 1. The of Fig. 1 becomes 
a 2 R 2 > the top of the "mountain” in Fig. 2. The T axis 
becomes a line of special points where all four phases 
A*, A" and the ferromagnetic F + and F" all coexist; it is 
a 4 X 0 . The 3 R\ meet at the T axis at the end of this line; 
at a 4 i? 0 . The region (R >0 appears simpler because it 
corresponds to the (H=0) section of (R<0, and the rest of 
the mountain occurs at H 2 * 0. See also, F. Harbus etal . , 
Ref. 1. 
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FIG. 3. The phase diagram at T- 0 of an Ising (a) anti- 
ferromagnet and (b) ferromagnet. The phases with spins 
parallel are indicated by F* and with spins antiparallel 
by A*. The lines indicate where the various phases are 
in equilibrium. 


also because it is an Ising model, the latter condi- 
tion holds. An entirely analogous argument can be 
constructed for critical points of order 4 or more. 

It is therefore possible, for Ising models, to 
make predictions about the relationships between 
°R d in the full phase diagram, by considering the 
relationships between the p X d in the T= 0 phase 
diagram. We will make extensive use of this meth- 
od in Sec. III. 

III. SPACES OF TRICRITICAL POINTS IN 
ONE-DIMENSIONAL MODELS 

There has been much work recently on one-di- 
mensional Ising models possessing a long-range 
interaction. 8,15 The effect of this interaction is to 
shift the critical temperature from the value T = 0 
to a nonzero temperature, thereby enabling the 
critical points to obey scaling laws. 

The purpose of this section is to display two 


models for which critical points of order 0 = 4 oc- 
cur; these are both Ising models with long-range 
interactions. 16 

Models exhibiting a critical point of order 4 also 
possess a line of points where four phases coexist, 
as explained at the end of Sec. II. Therefore, a 
simple method of deciding whether a particular 
model can possess a critical point of order 4 is to 
analyze the T= 0 hyperplane of the phase diagram 
and see if points where four phases coexist con- 
tinue to have four distinct phases in equilibrium as 
T is increased. Cases where this does and does 
not happen are discussed below. 

Before analyzing a case where there is a long- 
range interaction, let us consider the T = 0 phase 
diagram of a one-dimensional Ising antiferromag- 
net with only nearest- neighbor interactions. 

Hamiltonians 

The Hamiltonian is given by 

3C sr = — e/ SR X> SiS^-H Zv S| — — y f , 

<sl <=1 <=1 (3.1) 

where J SR is the nearest- neighbor (nn) interaction 
strength and s { =±l are the Ising spins situated at 
site i of the chain. When J SR >0 the interaction is 
ferromagnetic and when J SR < 0 the interaction is anti 
ferromagnetic. H is the magnetic field and H z is 
the staggered magnetic field of wavelength 2 lattice 
sites. The phase diagram will appear as in Fig. 
3(a). Here the four phases F*, A* are defined in 
Table I: F means ferromagnetic and A means anti- 
ferromagnetic. The 7 , = 0 “critical point” of the 


TABLE I. Definitions, energies, and equations of 
Figs. 3 and 5. Here (ft = ^sr/^lr; ^ s R/^hRi ^2 s ^/^lr 
S tar means not shown in Fig. 5. 


Configuration Name 

Field 

Energy 

t t 

F* 

H 

e f = ~ Jlr~Jsr~ H 

* 1 

F m 



t 1 

A* 

h 2 

F 2 — + </sr “* F- 2 

\ \ 

A~ 



Surface 

Equation 

Line 

Equation 


H= 0 

L i 

A 2 = 1+2K; h = 0 




1 

A 

[A*. A'] 

h 2 =o 

l 2 

h 2 = 1-2<R; h = 0 

[F*,A*]* 

h — h 2 + 1 + 2(ft= 0 


A = - 1 - 2ft; k 2 = 0 





IF',; n* 

h — h 2 — 1 + 2(ft= 0 

Li 

h ~ ~ 1 + 2(8; h 2 = 0 

IF*. A-]* 

h + h 2 + 1 + 2(ft= 0 



lF m ,A*]* 

h+h 2 - l-2(ft=0 
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FIG. 4. (a) The extension of Fig. 3(a) into the space 
with T>0 when a weak long-range interaction is included. 
Note that the T=0 plane corresponds to Fig. 3(a), and 
that the [A + ,A“] phase boundary only separates phases at 
T = 0. The other lines in Fig. 3(a) develop normally, giv- 
ing coexistence surfaces ( 2 X 2 ) ending in critical lines 2 R t . 
(b) The phase diagram of the same model but without the 
antiferromagnetic interaction (Jsr = 0 or J s r>0). Now 
all lines in the T = 0 plane become coexistence surfaces 
2 X 2 . The points of interaction become 3 X^ (lines where 
three phases coexist) and there terminate at two 3 R 0 (tri- 
critical points). 


Ising antiferromagnet becomes a line of critical 
points for nonzero values of magnetic field. This 
line bifurcates at points where it is energetically 
more favorable 17 for the system to order ferro- 
magnetically (i.e. , with all spins parallel). 

Normal scaling laws do not apply to one-dimen- 
sional Ising models with short-range interactions, 
as these display essential singularities at the T- 0 
critical point. Thus the lines in Fig. 3(a) are lines 
of both critical points and coexistence points. 

These lines do not have very much in common with 
either the conventional critical points z R d or the 
conventional coexistence surfaces p X d that divide 
up the field space at finite values of temperature. 

A suitable nomenclature for the lines of Fig. 3(a) 
might be “coexistence- critical surfaces ” and we 


will denote them by CXRS. A CXRS is necessarily 
confined to the T- 0 plane as for Fig. 3(a). Thus 
we see that the nn Ising antiferromagnet contains 
five CXRS lines where two phases coexist and two 
CXRS points where three phases coexist. 

Then we introduce in addition to 3C SR of Eq. 

(3.1), a long-range interaction, defined by the 
Hamiltonian 


3C lr — ^/YjJ{y)s i s i ^ rt 

(3.2a) 

<=1 r 


where 


J(r ) = lim nye’ y,rl , 

(3.2b) 


r-0 


the phases F* are stabilized at nonzero tempera- 
ture and continue to show long-range order for 
T> 0. The phase diagram is given in Fig. 4(a). 
The CXRS [on the H axis of Fig. 3(a)] is not sta- 
bilized at T>0 by the long-range interaction; the 
two antiferromagnetic phases A* coexisting at the 
CXRS at T- 0, simply become a single disordered 
phase for T> 0. 

There are two Z X Z separating the ordered (fer- 
romagnetic) phase from the disordered phase at 
higher temperatures. These Z X Z end in Z R X (lines 
of critical points). 

If the dominating nearest- neighbor interactions 
are ferromagnetic, J SR > 0, then the situation de- 
picted in Figs. 3(b) and 4(b) results. The two 
points where three phases coexist at T = 0 become 
the end points of two 3 X x lines where three phases 
coexist. Each 3 X x line terminates at a Z R 0 (a tri- 
critical point). 

If sufficient care is taken to decide whether a 
space in the T- 0 hyperplane is a CXRS or a CXS, 
then the nature of the extension of the space and 
its subspaces into T> 0 can be easily ascertained. 
The rules exemplified from Figs. 3 and 4 are the 
following: (i) Two phases which can only be dis- 
tinguished by a staggered magnetic field coexist 
on a CXRS. (ii) Such staggered phases give only 
one phase for T>0. (iii) A line where one phase 
which maintains order for T>0 coexists with any 
other phase is always a CXS. (iv) A point where a 
CXRS meets a CXS has no special properties. It 
is simply a point on a CXS. 

Using these rules we can analyze the model of 
Nagle and Bonner 8 which includes a long-range in- 
teraction, a variable short-range interaction, and 
the two fields of Fig. 3. 18 A point where four 
critical lines meet, a tetracritical point, is known 
for this model. We will show here that this point 
is a critical point of order 3. Since a variant of 
this model, which we discuss below, shows a crit- 
ical point of order 4, it is worth treating the 
Nagle-Bonner model in some detail first. 

Figure 5 depicts the surfaces of coexistence of 
the four phases in the T = 0 plane. Definitions and 
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FIG. 5. T= 0 hyperplane for an Ising model with 
competing long- and short-range interactions. Here & 

= J S r/^lr and H 2 is a staggered magnetic field of wave- 
length 2 lattice sites. The lines L lf L 2 are in the {H 2i (ft) 
plane, and the lines Z, 3 , L A are in the (H, (ft) plane. The 
surfaces [A“F + ], [A + F“], [F + ,A + ], [F~,A m ] have 

been omitted. The surface [A + ,A“] is a CXRS, Fig. 3(a) is 
an (H 2 ,H) plane for (ft<(ft Q , while Fig, 3(b) is for (H><5 q . 


equations are given in Table I. For clarity four 
surfaces are omitted; e.g. , those that separate 
the phases [F*A*] f [F~A~], [F*A“], and [F"A + ]. 

As may be seen there are four lines where three 
phases coexist and a point Q where all four phases 
coexist. The surface [A*A~] bounded by the lines 
L 3 , L 4 , is a CXRS since for constant values of (R 
less than x Ql the phase diagrams are the same as 
Figs. 3(a) and 4(a). Here 

^^^sr/^lr 9 (3.3) 



FIG. 6. H= 0 hyperplane of the model of Fig. 5. The 
lines Li, L 2 extend into T>0. The lines where three 
phases coexist in Fig. 4(b) have become a single surface, 
denoted here by 3 X 2 . This terminates at a line of tri- 
critical points 3 i?i; the 3 Rj also bounds a surface of or- 
dinary critical points 2 R 2 . The point t where the 3 i?i in- 
tersects the plane h 2 = 0 is the location of the tetracritical 
point (Ref. 8). The (ft=0 section of this figure corre- 
sponds to the H = 0 section of Fig. 4(b). Note that at t a 
surface (ft = const is parallel to the 3 R t . 


where J LR is the “equivalent neighbor” long-range 
parameter. 8 

For 7V0, the two Z X Z surfaces [A + F + ] and 
[A*\F‘ ] of Fig. 5 end in a single surface of critical 
points, and the same is true for the [A’F'* ], 

[A + F“] surfaces; this is shown in Fig. 4(a). 

The point Q of Fig. 5, where four phases coexist, 


[ 

: 


j 

i 



FIG. 7. Ray projection of the 
four-dimensional space, from Q 
onto (R=0 showing the topology of 
Hie surfaces of critical points. The 
(ft axis in Figs . 5 and 6 has become 
a combination of (ft and h. The 
curved 2 R 2 surfaces are the ends 
of those surfaces which end on L 3 
and L 4 of Fig. 5. The 2 R t of 
Figs. 4(a) and 4(b) are lines in this 
surface. The flat 2 R 2 shown in the 
(T, H 2 ) plane is the surface 2 R 2 of 
Fig. 6. 
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FIG. 8. Plot of the 2 X 2 and the four lines of critical 
points meeting at the tetracritical point t. The value of 
the interaction strength ratio Si= Jsr/^lr is equal to its 
appropriate value & c = 0. 

is seen (Fig. 6) to be only a special point on a 3 X Z 
and Q does not give rise to a i X l on increasing the 
temperature. To see this (in the full phase dia- 
gram) it is necessary to consider Figs. 4(b) and 
5-7. First, in Fig. 4(b), the phase diagram of the 
system is shown at constant (ft>0. The relationship 
of this figure to Fig. 5 can be understood by looking 
at the T = 0 plane of Fig. 4(b). The lines where two 
phases coexist are lines on the appropriate sur- 
faces of Fig. 5, and points where lines in the T- 0 
plane of Fig. 4(b) meet are points on the lines L u 
L z . Therefore Fig. 4(b) shows that the lines L u 
L z do give rise to coexistence surfaces and are 
lines on 3 X Z , as shown in Fig. 6. The line of points 
where three phases coexist ( 3 X x ) in Fig. 5 has be- 
come a surface ( 3 X Z ) in Fig. 6, and this surface is 
terminated by a single line of tricritical points, 

3 Rj. Figure 6 shows that the point Q is just a point 
on a 3 X Z , and does not generate a *X lt 

The three surfaces of critical points generated 
by the lines of critical points in Figs. 4(a) and 4(b) 
are shown schematically in Fig. 7. It can be seen 
that the two 3 R Q (tricritical points) of Fig. 4(b) 
form a continuous line (a 3 R l ) bounding three Z R Z 
(surfaces of critical points). The point t was called 
a tetracritical point by Nagle and Bonner 8 because, 
for (ft=(R c , four lines of critical points meet there 
(see Fig. 8). However, Figs. 6 and 7 show that t 
is an indistinguishable point on a smooth line of tri- 
critical points of order 3; this is corroborated by 
the fact 8 that the exponents at t are the same as at 
the other tricritical points. 

To produce a model where the point Q is stable 
at higher temperatures demands only a slight change 
in the structure of the interactions. We draw the 


linear -chain nearest -neighbor Ising antiferromag- 
net in the form shown in Fig. 9, with the nn anti- 
ferromagnetic interaction along the solid lines, and 
a long-range interaction along each of the dotted 
lines. The latter stabilizes each sublattice inde- 
pendently, enabling the system to adopt an antifer- 
romagnetic ordering at nonzero temperature: 

X^Xga+Xlz+X’a, (3.4a) 

where 

K«£ — EE J(2r)s, Sl . ir . (3.4b) 

i r 

Here odd-numbered spins are on the top lattice of 
Fig. 9 and 3C° has all i odd. Even numbered spins 
are on the lower lattice and K B has all i even; 

J(2r) is defined by Eq. (3. 2b). The point Q is now 
at the origin and stable for T> 0, and we are able to 
have four 3 X Z \ these are generated by the lines L u 
L 2 , L 3 , L 4 (of Fig. 5) meeting at the A X lt generated 
by Q. The Z X Z should end in a 3 R X (as in Fig. 6) 
but unlike the system of Fig. 6, the all termi- 
nate at a 4 i? 0 . 

This Hamiltonian has an important discrete sym- 
metry which will necessarily be reflected by the 
phase diagram of the solution of the model. It is 
given by the operation s, - (- ) f s { , H~H Zl H Z -~H, 

J SR — J SR . Therefore, 

G(H, H z , T; +J SR )=G(tf 2 , H, T; - J SR ) . 

Further, the point Q in Fig. 5 (which is now stable 
at T>0) is now located at the origin. There are now 
four 3 R X ; two of which lie in the H Z =Q hyperplane 
for (ft<0 and these are symmetrically complemented 
by two more *R X in the H = 0 for (R>0. These four 
*R X meet at the T-axis at some finite value of T. 

This point at which all four *R X meet is a 4 R 0 . 
The phase diagram for this model is the same 
as that for the Ising model with variable interplanar 
interaction discussed in Sec. II (Figs. 1 and 2). 

For the model just discussed, we were able to 
make use of the extensive analysis of Nagle and 
Bonner in conjunction with the T = 0 phase diagram, 
and thus we deduced the structure of the full phase 
diagram. The existence of the discrete symmetry 
and the consequent analogy with the model discussed 
in Sec. II makes us more confident in our conclu- 
sions. 

For the next model, we use only an analysis of 
the T = 0 phase diagram and we make the extrapola- 



FIG. 9. Modified one-dimensional lattice exhibiting a 
critical point of order 0 = 4. The solid lines represent 
antiferromagnetic interactions and the dashed lines, long- 
range (ferromagnetic) interactions. 
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TABLE II. Definitions of spin orderings of phases and 
fields for an Ising model with two staggered fields. 


Spin configuration 

Name 

Conjugate field 

t 

t 

t t 

F * 


H 

4 

* 

* 1 

F m 



t 

♦ 

t 4 

A *2 


*2 

* 

t 

1 t 

A 2 



t 

t 

1 1 



K 

* 

♦ 

t t 

A l 



t 

t 

♦ 4 

K 

5 iHz + 

H t ±H] 

t 

1 

4 4 

K 



t 

t 

4 t 

K 

k[-H- 

! + H 4 ±H) 

* 

t 

4 4 

Ml 



t 

* 

t t 

K 

5 t#2' 

-H^H] 

* 

* 

t 4 

Ml 



* 

t 

t t 

K 

\[~H 

2 

4 

4 

4 t 

Ml 




tions explained at the end of Sec. II. Our knowl- 
edge of the extensive occurrence of tricritical 
points in certain Ising models gives us a reasonable 
basis from which to predict the existence of a crit- 
ical point of order 4. 

This second model for which an exact solution is 
fairly readily obtainable 16 is a model with a second 
staggered magnetic field. It turns out that the 
analysis for an exact solution is simplest if the 
staggered field, is of wavelength four lattice 

sites. 19 The Hamiltonian will therefore be given by 

X = X SB +X LR -H t E u,s lt (3.5) 

<=1 

where the number u , = + 1 for i = 4w + 1 , 4w + 2 and 

r iABLE III. Energies of various phases at T=0 for an 
Ising model with two staggered fields. Here the long- 
range energy is given by J hR and the nearest neighbor by 
J SR . Only the phase + is shown; to get the value of E x -, 
reverse the sign of the conjugate field. 


Phase Energy per spin 


F* 

Ep — Jlr — Jsr ~ H 

A t 

= + c/g B — ^2 

a; 

E t = -H 4 

K 

E a =~tJ LR-*[ + *2+«i+*l 

M* b 

E b = -h + + m 

K 

E e =-i J L R-ll+H y-H^Hl 

Ml 

E d =-hJ LR-i[-ff2-*4 + tfl 


u { = - 1 for i = 4w - 1 , 4 n. We define the names of 
the various phases in Table II and also the phase of 
H a relative to H z . We give the energies of the 
phases at T = 0 in Table HI. The phase adopted at 
T = 0 is that of lowest energy, and so the problem 
of finding the phase diagram at T- 0 is simple. 

The phases coexist at points where the energies of 
two different phases are equal, and the most im- 
portant equalities are given in Table IV(a). 

An extended analysis 16 shows that the significant 
values of (R are - 1, - j, and 0, and a sequence of 
phase diagrams can be drawn in the space of vari- 
ables H , H Zl H a for values of (R greater than, equal 
to, and less than these numbers. A representative 

TABLE IV. (a) Equations of planes and lines in Fig. 10 
for an Ising model with two staggered fields. Here we 
have divided all energies through by and defined h i 
= /f i /j LR , (R = Jsr/Jlr* In Fig. 10, (R is positive, e.g., 

5 or °°. Star means that the plane was omitted from Fig. 


10. Double star indicates that this is only a line: (b) 
Equations of lines in Fig. 10. 


Phase boundary 

(a) 

Equation 

Region 

\F*,F-] 

h = 0 


IK. Ml) 

h = 0 


IF\K)* 

h 2 + h A — 1 — 2(R= h 

h,h 2 ,h4>0 

IF*,K)* 

h 2 — h A + 1 + 2(R — h 

h , >0, h 2 <0 


h A -l-ti=h 

hi >0, h >0 

l A\, K) 

II 

i— i 

1 

JS 

1 

h , h A >0, h 2 >0 

l At, K 

II 

T— < 
1 

-ss 

+ 

h, hi >0, h 2 < 0 


h 2 -l-2& = h 

hy h 2 >0; h A = 0 

Ia}, K\ 

h 2 — h A — 1 — 2<R= h 

h t h 2 y h A >0 

Line 

(b) 

Intersection 

Equation 

[i-.F'F-MlMl) 

[£*,£-] \K.Ml\ 

^2 + ^4 = 1 + 2(R 


\F\K)> IF-.M-J 

h = 0 

[3 


h A = 1+S 


IF', All* 

h = 0 

[3 -.F*KAi) 

1F\A\11A\,K1 

h A -h = 1+(R 


[F\K* 

II 

CM 

[3 : F*MlA\\ 

[F*A\l\Al,Kl 

h4~h = l+& 


[F\K1* 

h 2 = -$l 

[4 : F'KKAD 

[F\ Ml\*[F*Af c \* 

h 2 — h — 1 + 2(R 


\K. AD [Ml, At) 

h A = 0 

[3 :K. Ml,A\) 

[mi,m-j\k,a\1 

h A -h 2 = l 


1mi,a\)* 

h = 0 

13:KK.A$ 

IMI.M11, IK, All 

h 2 — h A = 1 + 2(R 


\K.All 

h = 0 
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diagram is shown in Fig. 10 for which the equations 
of the lines are given in Table IV (b). Some of the 
surfaces and lines of Fig. 10 are labeled and the 
reader can discover the labels for the rest by ref- 
erence to Tables IV(a) and IV(b). 

There are several important points about this 
model: firstly, the “mixed” phases M* a are dis- 
tinguished at T= 0 as M* • • - AfJ but above absolute 
zero there are only phases M* and M~. The phases 
M* are stable for T> 0 because they contain a long- 
range contribution to their energy; thus all the 
lines and surfaces on Fig. 10 will survive at T>0 
because they separate phases stabilized by the 
long-range interaction from phases (Aj, A\ ) stable 
only at T= 0. 

There are several points where many phases 
coexist. In particular, at the point P 2 the phases 
F ± y M*, and A\ coexist. The lines where three or 
more phases coexist which meet at P 2 are all stable 
at T>0 and so should end in tricritical points. 

Thus P z will give rise to a line of points where five 
phases coexist; this line ends at a critical point of 
order 4. Other points in Fig. 10 (viz., P x ) are 
much more complex in structure and will not be 
discussed here. The object of introducing the 
model given by Eq. (3.5) was to show a critical 
point of order four and this, at least, we have done. 

In this section we have shown that it is reason- 
ably easy to find model systems which are soluble 
and which show critical points of order 4 or more. 
The analysis of the two models suggested was 
omitted for the sake of brevity, and will be given 
in future work. 16 


IV. SPECIAL DIRECTIONS AT CRITICAL SPACES OF 
ORDER 0. A SET OF “CANONICAL DIRECTIONS’’ 

In order to properly formulate the scaling hy- 
pothesis for multicomponent systems, it is impor- 
tant to choose the proper independent variables. It 
is this problem that is treated in the present sec- 
tion. We shall argue that the considerations that 
Griffiths and Wheeler 5 applied to their discussion 
of second- order critical spaces ( 2 P d ) can be ex- 
tended to spaces of higher order in a natural and 
straightforward fashion. 

A z X d is, by definition, a hypersurface where two 
phases coexist; it necessarily divides the total 
space of n field variables locally into two regions 
and is therefore of dimension d-n- 1, where n is 
the total number of truly intensive or “field ” vari- 
ables. 5 A z R d (a simple second-order critical 
space) is the boundary of a z Y n _ 1 and is therefore 
of dimension d-n - 2. 

At a 2 P n - 2 there are n- 2 directions parametriz- 
ing the critical space. The two remaining directions 
are of significance for the generalized scaling 
hypothesis. Directions not locally parallel to 
the z X nml (coexistence surface) we call strong di- 
rections, and directions locally parallel to the 
2 X„ ml but not in the z R n . 2 we call weak directions. 

The strong and weak directions will be called direc- 
tions of type 1 and 2, respectively; this terminology 
is useful in Sec. VT and in Paper II, where the ap- 
propriate generalization to critical spaces of order 
larger than 2 is made. Examples are given in 
Figs. 11 and 12. 



FIG. 10. Coexistence surfaces in 
the T=0 phase for a system with a 
long-range interaction, a nn interaction, 
magnetic field h , and staggered mag- 
netic fields h 2 , ht of wavelengths 2 and 
4. Here the short-range interaction is 
also ferromagnetic. The surfaces are 
labeled by the phases in coexistence. 
The surface lF + ,Af£] is omitted. The 
lines are labeled by the three or four 
phases in coexistence there. At the 
point P 2 , five phases coexist; at Pi, 
seven phases coexist. The phases F 
and M are stable above T=0. 
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FIG. 11. (a) Phase transition for a ferromagnetic sys- 
tem. The coexistence surface 2 X t ends at a critical 
point 2 Rq. The strong direction H and weak direction 
t are defined at the 2 i? 0 . (b) Phase transition for a sim- 

ple fluid. The coexistence surface 2 X t ends at a critical 
point 2 Rq. The strong direction and weak direction x 2 
are indicated; both P and T directions are strong. 

Next, we introduce the concept of a direction of 
type 3. In the examples discussed, the critical 
spaces of order 3 have a dimension of d-n - 3. If 
one approaches a particular tricritical point along 
a line of critical points of order 2, then in addition 
to the two directions singled out by the Z R X (and its 
associated Z X 2 ), there is a third direction of signifi- 
cance for scaling. This direction, which we call a 
direction of type 3, is a direction tangent to the 
line of critical points (Figs. 12 and 14). This concept 
is easily generalized to n >3 for the case mentioned 
above, for which the dimension d of the space of 
critical points of order three is indeed given by 
d = n-3. In this case directions of type 3 are those 
directions which are neither strong nor weak for a 
particular z R n ^ bounded by the 3 f? n _ 3 , nor are they 
locally tangent to the space of critical points of 


H 



FIG. 12. Phase transition for an antiferromagnet. 

The coexistence surface 2 X 2 lies in the H , T plane and 
the line of critical points 2 J R 1 bounds it. The strong direc- 
tion is everywhere H ai , the staggered magnetic field. 

The weak direction may be either H or T, except at the 
N£el point where it can only be T. The independent 
direction xq lies in the 2 R \ . 


X 2 

|H sf | 02/a ’ 

FIG. 13. Invariant 
space for an antiferromag- 
net. (x 3 is merely a pa- 
rameter.) 

► x 3 

third order. 

In the similar cases where Eq. (1.1) holds as an 
equality, one can generalize the above concepts to 
define directions of types 1, 2, . . . , o, and these are 
important in applying the scaling hypothesis to criti- 
cal spaces of order o . Specifically, since a criti- 
cal point of order 0 is, by definition, a particular 
point on a “line” of critical points of order 0-1, 
the generalization follows by analogy with the case 
treated above. The directions of types 1 through© 
are of great importance because they are used as 
the independent variables of the Gibbs function 
when the scaling hypothesis is made. Accordingly, 
they will be referred to in later sections as the 
“principal directions of scaling.** 

Thus, to set up a coordinate system at a G R n . e 
(a general critical space of order 0), a set of crit- 
ical spaces J R„ mJ of orders j = 2, 3, ..., 0 must be 
selected. This set of spaces must satisfy an inclu- 
sion principle : °R n . e c l R n . { c J R nmJ for j <i<G. The 
directions of types 1,2,..., 0 are then sequential- 
ly defined. Here the inclusion symbol c means 
not only that the * R nmi is also part of a (for 
i >j ) but also that the { R n . { can be reached as a 
limiting point or boundary of the *R nm j. 

The hierarchy of spaces i R n . j is not unique, and 
the large number of choices available presents an 
apparent problem because many more than 0 lin- 
early independent vector directions are definable. 
For the 0 = 3 example of Fig. 14 the Z R 0 can be ap- 
proached along any of the three z R l9 and each of 
these three “critical lines ** (with its associated 
Z X Z ) defines a set of directions of types 1, 2, and 
3. This apparent problem is resolved by the gen- 
eralized scaling hypothesis, because the shape of 
each critical space of order j (j <G ) near the °R d 
is constrained by the scaling hypothesis so that all 
the different directions end up mutually consistent. 
Accordingly, we now turn our attention to the scal- 
ing hypothesis, making it firstly in Sec. V for sim- 
ple systems (w = 2), for « = 3 systems with a 3 R Q 
(tricritical point) in Sec. VI, and in Paper II for a 
°R nm0 (a general critical space of order o). 20 

V. INVARIANT THEOREMS OF ONE-PARAMETER 
CONTINUOUS GROUPS; APPLICATION TO THE 

SCALING HYPOTHESIS FOR CRITICAL SPACES OF 
ORDER 2 

The scaling hypothesis for a simple system with 
two independent field variables can be made in 
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FIG. 14. Phase diagram for a metamagnet. The three 
2 X 2 end in lines of critical points 2 i? t . These lines inter- 
sect at the tricritical point 3 /? 0 . At a point P on the line 
L t , a triad of strong, weak, and parallel (to L x ) directions 
is shown. This triad attains the limiting orientation 
(x t , x 2 , x 3 ) at the tricritical point 3 R 0 . 


several essentially equivalent fashions. One state- 
ment is that the singular part of the Gibbs potential 
is asymptotically a generalized homogeneous func- 
tion (GHF ) of the appropriate variables. 21 For 
the simple magnet, this statement takes the form 
that there exist two numbers a H , a T (called “scaling 
powers”) such that for all positive X, 

G(X a "tf, \ ar T)=\G(H, t), (5.1) 

where H is the magnetic field and r = T- T c . Using 
Eq. (5.1), one can express all possible thermody- 
namic exponents in terms of ( a H , a T ). zl 

This form of the scaling hypothesis implies that 
the singular part of the Gibbs potential 

G = F(H, t) (5.2) 

is an invariant equation under the “scaling” trans- 
formation defined by 

G f = XG , (5.3a) 

t'-xN, (5.3b) 

such that G* = F(H’ , t'). The transformations de- 
fined by Eq. (5.3) form a one-parameter group 22 
9 f and the scaling hypothesis may be restated in 
the following fashion: (5.2) is an invariant equation 
under the group of transformations S F of (5. 3). 

For a simple magnet the thermodynamic axes 
are parallel to the directions used in the scaling 
hypothesis (5.1) (the “principal axes of scaling”). 

In other systems, this is not always so. In Fig. 11 
we contrast the phase diagrams of a simple fluid 
and a simple magnet, and show the orientations of 


the strong and weak directions (x lt x 2 ) for each. 

For a magnet, H is a strong direction and r is the 
weak direction, but Fig. 11(b) shows that for a 
simple fluid, both P and T are strong directions 
and that the weak direction, x 2f is a special com- 
bination of the P and T directions. 

This is usually the case for general thermody- 
namic systems— more than one thermodynamic axis 
is strong (as for the simple fluid) or more than one 
axis is weak (as for an antiferromagnet, see Fig. 
12). 

The scaling hypothesis at a z R n . 2 for a general 
system can be made by choosing the strong and 
weak directions as the principal axes of scaling. 
Then the statement is that the singular part of the 
Gibbs function 

...,*„) (5.4) 

is an invariant equation under the one -parameter 23 
continuous group of transformations 8: 

G'=XG, (5.5a) 

x 1= \ af x { , i = l, 2, ...,n, [a { = 0, i >2] . 

(5. 5b) 

Equation (5.5) is defined for all positive X; the a { 
are called scaling powers. This statement is 
equivalent to the scaling hypothesis 

G(X ai * lf \ az x z -,xyx n ) = \G{x u x 2 ; ••• x„). 

(5.6) 

For future reference, we will use a superscript 
s to denote the subgroup generated by the trans- 
formations of the independent variables x { (i = 1, 

2, . . . , n). Thus we may generally define the full 
group by two equations, where the second denotes 
the subgroup S s . 

To illustrate the scaling hypothesis when an in- 
active parameter is present, we consider the exam- 
ple of the antiferromagnet (see Fig. 12). Here we 
hypothesize that the singular part of the Gibbs po- 
tential 

G = T ^ (Hgt , x 2 t x 3 ) (5.7) 

is an invariant equation under the one parameter 
continuous group of transformations $ A : 

(g'=xg, 

S A < a , a (5.8) 

*^at > X 2 = ^ 2 *2> x 3~ x 3 » 

where x 2 is a weak direction, [T- T c (H )] or [H 
- H e (T)] t and x z parametrizes the position of the 
critical point on the line of critical points. Equiva- 
lently G satisfies a GHF equation 24 

G(\° l H at , x a2 * 2 ; x 3 ) = \G(H st , X 2 ; x 3 ) . (5. 9 ) 

Here H ai denotes the staggered magnetic field. 

Scaling functions for ferromagnets and antifer- 
romagnets can be obtained the usual way 21 from 
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Eqs. (5. 1) and (5. 9), respectively. For example, 
by setting X = 1/ 1 H\ 1/a » in Eq. (5.1), we obtain 25 

G(l, r/\H\^)- \H\' UaH G(H, r). (5.10) 

The function G(H , t) can be plotted as a curve in a 
two-dimensional plane with coordinates specified 
by G/\H\ Ua » and T/\H\ a * /a ». We note that both 
G/\H\ l/aff and T/\H\ a t ,af * are absolute invariants of 
the group 8 F defined by Eq. (5. 3), i. e. , 


G f 


G H | JJ '| 1 f a H 


G 

i#i i/a * 


_ T T 

” | i/ ' I a T /a // ” | H\ ar ^ aff 1 


(5.11a) 


(5.11b) 


where the second equalities in (5. 11) follow from 
(5.3). 

Similarly, by setting X = 1/ 1 H ai 1 Eq. (5.9) 
may be written 

G(1 , / 1 #.« I a2/ai ; ^ 3 )= l^stl * 8 ; *,) , 

(5. 12) 

and G/l tf at 1 1/fll , * 2 / 1 tf st I a 2 /ai , x z are absolute in- 
variants of the group $ A . In addition, the last two 
quantities are absolute invariants of the subgroup 

9J. 

To derive exponents and scaling laws for the 
antiferromagnet, the procedures developed in Ref. 
21 can be simply applied to Eq. (5.9). At points 
where the critical line is not parallel to the T axis, 
it is easily shown that 

P=(l-a l )/a z , (5.13a) 

1/6 = (1 - ai)/ai , (5.13b) 

-y=(l-2 ai)/a z , (5.13c) 

- a=(l -2a z )/a z , (5.13d) 

where the order parameter M ai tends to zero when 

the critical line is approached in a weak direction 

with exponent 0, 

M st <x \T- T e (H)\\ (5.14a) 

and with exponent 1/6 when it is approached in a 
strong direction 

M at ccHl'\ (5.14b) 

The staggered susceptibility x at = / 8tf st di “ 

verges with exponent y, 


Xs «oc|r-r c W|- 


(5. 14c) 


and the specific heat at constant order parameter 
diverges with exponent a: 


C Uat «\T-T e (H)\- 


(5. 14d) 


The last two exponents y and ot refer to weak direc- 
tions of approach (in the plane H si =0) to the criti- 
cal line. 26 

In the same way, exponents for the ordinary 


magnetization M, and ordinary susceptibility x 
= dM/dH can be derived. It turns out on using Eq. 
(5. 13d) that 

M-M e {H)<* |r- T c (H)\ ll - a) , (5.15a) 


x cc\ T -T c (H)\- 


(5. 15b) 


From Eqs. (5. 13a)- (5. 13d) the usual scaling law 
equalities can be derived by eliminating the scaling 
powers a x and a z : 

ol + 20+ y= 2 , j8(6-l) = y, j3(6+l) = 2 -a. 

These results are also obtainable from two sim- 
ple group invariant theorems which we shall find 
particularly useful in making the scaling hypothesis 
for critical subspaces of higher order. 

Theorem 1. Consider a one- parameter continu- 
ous group of transformations: 


x j =/|(X \xi, r 2 , • • • , x n ) , i - 1,2, 


(5. 16a) 


(5. 17a) 


, n . 

(5.16b) 

There exist n functionally independent absolute in- 
variants of the x { (i = 0, 1, . . . , n). This theorem 
is proved in Appendix A. 

For our applications, we shall choose the invari- 
ants, denoted by y { (i = 0, 1, 1), such that, 

for i = 0, 

8*0 

and for i >0, 

bi,yz Vn-i) (5.17b) 

are the n - 1 functionally independent absolute in- 
variants of the subgroup S 5 . 

For the simple ferromagnet, G/\H\ i/afi is an 
absolute invariant under S F [see Eq. (5.3)] and 
t/ I Hi aj/a ff is the functionally independent absolute 
invariant of ( H , t) under the transformation Sjr. 

For the antiferromagnet, G/|tf st | 1/ai is an absolute 
invariant under S A , and (* 2 /ltf st l a2/ai , x z ) are the 
two functionally independent absolute invariants 
under S^. 

Theorem 2. If 


* 0 =Ar 0 (*,, x„) 


(5.18) 


is an invariant equation under S defined by (5. 16) 
(i.e. , if X Q is a GHF), then it can be expressed as 


y<> = o(yi> 


(5.19) 


where the y { (i = 0, 1 , . . . , n- 1) form a set of func- 
tionally independent absolute invariants of S given 
by (5. 16), and satisfying (5. 17). 

The proof of this theorem is given in Appendix 
B. Equations (5. 10) and (5. 12) are simple applica- 
tions of these theorems. The usefulness of theo- 
rems 1 and 2 will be apparent in Sec. VI. 
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VI. SCALING HYPOTHESIS FOR TRICRITICAL POINTS 

Before making the scaling hypothesis and exam- 
ining its consequences for a critical space of arbi- 
trary order ©, we will make it for the special 
case of a 3 R 0 (tricritic al point) for which there are 
three fields available (n = 3). This will clarify both 
notation and concepts, and make passage to the 
general case more painless. 

As was shown in Sec. IV, it is possible at a crit- 
ical point to select strong and weak directions (di- 
rections of types 1 and 2). These we call x x and x 2 
as before. In a space of total dimension three, the 
critical subspaces terminating at a Z R 0 are all Z R X . 
At a point on a Z R X we may select a direction tan- 
gent to the line. Thus as one approaches the Z R 0 
along a given z R lf the directions of types 1,2, and 
3 are uniquely defined (see Fig. 14). 

Since three critical lines meet at a Z R 0 , three 
“rival ” coordinate systems exist at the point Z R 0 . 

A scaling hypothesis cannot be made at the tricriti- 
cal point unless a unique coordinate system can be 
defined, and this represents an apparent obstacle. 

The solution of this problem is somewhat subtle, 
and the full details have been given in a previous 
paper. 7(b) The basic idea is that a scaling hypothe- 
sis at the z Rq determines the general shape of a 
line of critical points near the Z R 0 ; thus a scaling 
hypothesis made in a coordinate system defined by 
one line will restrict the shapes of the other two 
lines meeting it (at the tricritical point). 

The coordinate systems defined with reference 
to the other two lines are consistent in the sense 
that we could have selected any line first to make 
the scaling hypothesis and we would have obtained 
the same final result. 

To set up a coordinate system in which to make 
a scaling hypothesis at the Z R 0 , we choose a point 
P on one of the critical lines (say L x ) and we set up 
a triad of directions x { (L x ). Two of these direc- 
tions are of types 1 and 2, while the third is tan- 
gent to the Z R X . The coordinate system at the tri- 
critical point is now defined to be 

x { = lim x { (P) (6. 1 ) 

P~*Rq 

(see Fig. 14). The direction is of type 3. The 
bars are used in order that the present notation be 
consistent with that of Ref. 7(b). 

We now introduce a scaling parameter A (X>0) 
and make the scaling hypothesis that the singular 
part of the Gibbs potential is a GHF, i. e. , 

G(\ a ix 1 , X* z x z , X fl 3 x z ) = \G(x l ,x z ,x 3 ), (6.2) 

where a z , a 3 ) are the “tricritical scaling pow- 
ers”. Equation (6. 2) is equivalent to the statement 
that 0=$ (x u x Zl x 3 ) is an invariant equation 
under the one-parameter continuous group of trans- 
formations 


( G f — AG , (6 . 3a) 

^3 \ 

lxl = \ a ix { , i= 1,2,3. (6.3b) 

According to theorem 1 of Sec. V, the hypothe- 
sized invariance property of (6. 1) under S 3 implies 
that there exists a basis set of functionally indepen- 
dent absolute invariants of 9 3 . We adopt a canoni- 
cal form for the invariants y { by scaling x { with re- 
spect to the tangent variable— here x 3 — as follows: 

*0 *1 *2 .x 

3>0 ^ 1 /a 3 * ^ 1 —a x fa 3 > Vz — a z fa 3 t 'h. 4 ) 

with x q = G. Thus, theorem 2 of Sec. V states that 
G(x lf 3r 2 , 3^ 3 ) may be expressed as 27 

3'o = ir 2(j'i. yz)- ( 6 -5) 

Since the variables y x and y z forms a basis set 
of functionally independent absolute invariants of 
the scaling field variables x l9 x z , and x 3 of the 
group of transformations 9 3 , any point ( k lt k 2 ) in 
the two-dimensional space (y t , y z ) gives rise to an 
invariant curve of points in the three-dimensional 
space (x l ,x z ,x 3 ). That is, the point given by 

yi = k { , i = l,2 (6.6) 

corresponds to a line in the x { space that may be 
conveniently parametrized by 

(x lf x Z9 x 3 )= (k x X s \ k z x*z, X ff 3) , (6. 7) 

where X is an arbitrary parameter (see Fig. 15). 

In particular the lines of critical points L s con- 
verging on the tricritical point can be expressed in 
the form of Eq. (6. 7), since according to the scal- 
ing hypothesis (6.2) they must be invariant under 
the group of symmetries 9 3 of (6.3). 

Previously 7 (b) we have derived Eq. (6.7) directly 
from Eq. (6.2) and demonstrated that if the scaling 
powers a { are all different, the curves parame- 
trized by Eq. (6. 7) end up parallel to the axis x { 
corresponding to the minimum a { (unless £, = 0). 
Although the direction of type 3 defined for one 
line is not necessarily parallel to the direction of 
type 3 defined for another line, it will at least be 
parallel to some member of the triad defined for 
that other line. Thus all choices of scaling direc- 
tions will be mutually consistent 1 7 (b) ' 28 

Along a critical line Z R U the conventional scaling 
hypothesis is normally stated in terms of a GHF 
equation of the form 

G(lJL ai x lr [i az x 2 \ x 3 )=lJ.Gbc 1 , x 2 ; x 3 ) , (6.8) 

where x 3 is a parameter and does not scale. Near 
the Z R 0 , however, the shape of the critical line is 
determined by Eq. (6. 7). A Z R X near the Z R 0 maps 
into a point (k l9 k 2 ) in the yi-y 2 plane given by 
Eq. (6.6). Furthermore, the value of y 0 = x 0 /xl /a * 
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= G/x\ ,a * changes only if y x and/or y 2 changes. It 
is therefore more proper to make a precise scaling 
hypothesis about the critical line Z R 1 near the Z R 0 
making use of the variables (y lf y 2 ). 

If we adopt the strong requirement that a point in 
one phase remains in that phase under the scale 
transformation 9 3 , the CXS surfaces become lines 
in the y x -y 2 plane. Hence, it is possible to choose 
the principal directions of scaling for the z R n . z as 
linear combinations of the variables y l9 y 2 . 

Because the scaled variables must be zero at the 
critical line we consider the variables 

yi-V\- k \> (6.9a) 


yi=*i/*s l/Is > (6.15a) 

y 2 = (x 2 /x°z r '3 + k), (6.15b) 

where k is defined in Fig. 15. Rotation is not nec- 
essary and R (J = 6 U . Hence on using (6. 13) and 
(6. 15), Eq. (6. 14) can be written in the “double- 
power law ” form 27 

G 

]• (6 - 16) 


yz s yz- k 2‘ (6.9b) 

For the line L x of Fig. 15, k 1 = 0 J the coordinate 
y u is everywhere strong and (y 2 + k) is weak. For 
L 2 and L 3 , the weak direction is parallel to the CXS 
mapped in the y x -y 2 plane, and both y l9 y 2 are 
strong directions unless the wings end up parallel 
to one axis. 

We therefore define linear combinations of the 
variables (y *-&<), which give the weak and strong 
directions (they are of necessity also absolute 


invariants of the group 9 3 ): 

y,= E R u (y,-kj), (6.10a) 

J* 1 

where R ti is a “rotation matrix ”. Defining 

yo-^o, (6.10b) 

we hypothesize that along a Z R X near the 3 R 0 , y 0 is 
a GHF of (yi,y 2 )i 

3o(\f l y if / 2 y 2 )= Woiyi, y 2 ) , (6. n) 

i.e., y 0 =Myi,y 2 ) is an invariant equation under a 
group 9 2 defined by 

g (6.12a) 

iy't=n a, y,, *‘=1, 2. ( 6 . 12 b) 


In general, the group 9 2 will be different (having 
different a { ) for each critical line at the tricritical 
point, and will only be valid within a certain region 
close to the critical line. The different groups 9 2 
for the different lines L { do not have regions of 
overlap and there is therefore no conflict. 

We can now form absolute invariants of 9 2 . 
Scaling with respect to the weak direction we obtain 

z °~ y^° 2 ’ Zl ~ y\' ,a 2 ’ (6.13) 

Theorem 2 of Sec. V states that under the hypothe- 
sis (6. 11), y 0 (yi> y 2 ) may be expressed as 27 

Zo = $ (6.14) 

The simplest example of this is for the line L 1 
of Fig. 15. Here the variables of scaling are 


For a simple system with n- 2, scaling functions 
predict data collapsing for functions of two variables 
from a surface onto a line. For n- 3 and functions 
of three variables, data collapse from a volume 
onto a surface. However, the double-power scaling 
function of Eq. (6. 16) predicts that data will col- 
lapse from a volume onto a line. Clearly this hap- 
pens only within the region of validity of both 
groups of transformations 9 2 and 9 3 . 

The region of influence of 9 2 in the neighborhood 
of the tricritical point Z R 0 should also be controlled 
by the group 9 3 . This means that the region of in- 
fluence of 9 2 should be bounded by a surface which 
scales toward the 3 R 0 . In Fig. 15, where a line 
which scales is represented by a point, a surface 
which scales will be represented by a line. We 
therefore plot the surfaces bounding the region of 
influence of the group 9 2 (of transformations about a 
2 Rj, L { ) as a line surrounding the point in the yj-y 2 
plane, representing the particular line L { . 

In terms of the variables y l9 y 2 such a line will 
be represented by the equation 

Ay i,Vz) = 0 (6.17a) 



curve 

(a) 



FIG. 15. (a) Plot of the invariants (yi,y 2 ) for the group 
9 3 of transformations about the tricritical point. The 
strong and weak directions for the line L x are y\ and y 2 . 
The circle around L { is a possible shape for the crossover 
region, (b) The principal points of interest of Fig. 15(a) 
in the full space (xi,x 2 ,3t 3 ). The point labeled L x has be- 
come a line and the circle surrounding it has become a 
cone. 
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FIG. 16. Figure 15(b) sliced in the * 2 , x 3 plane. The 
cone has become the two lines labeled C 2 [see 

Fig. 15(a)]. These are generally referred to as cross- 
over lines: (T',g') = (T- T t ,g -g t ). 


or 

/(* ,/ Vl* 3 l“ v “‘ 3 ) = 0. (6.17B) 

The area bounded by this curve (6.17) maps into 
a conical volume surrounding the critical line L x 
(Fig. 15). Scaling will not tell us the actual shape 
of the curve in the y l -y 2 plane but it does limit the 
shape in the (x l9 x 2 , x z ) space, since all points in 
the yi~y z plane give rise to curves approaching 
the tricritic al point along a particular direction— 
the axis corresponding to the minimum a { . 

In the plane x x = 0, Eq. (6. 16) requires 29 that 

Go:xy s 3(x 2 /xp /s 3 + k) u ^ , (6.18) 

and the conical surface of Eq. (6.17) becomes the 
two “crossover lines " 

X2 = C liZ x!^, (6.19) 

as shown in Fig. 16. The crossover exponent 
<p, 7(a) given by 

(p = a 3 /a z , (6.20) 

determines the shape of the crossover lines, and 
it can be determined directly from the shape of the 
line L x ( z R t ). 

The lines are called crossover lines, because the 
behavior of a particular function crosses over from 
an exponent characteristic of the 3 R Q far away from 
the line, to an exponent characteristic of the z R l at 
points close to the Z R X . It is important to realize 
that the group S 3 does not cease to be valid, and the 
crossover does not refer to changing from one 
group to another. The group S 3 is everywhere 
valid, and the crossover merely marks the limits 
of validity of 9 2 . This principle will be extended 
in Paper II and the groups will control cross- 
overs (or boundaries for the regions of validity) of 


S, where j > i. 

Finally, a few remarks should be made about the 
exponents and the directions of approach to the tri- 
critical point. Equation (6. 18) shows that if x 2 / 

1*3 1 * 2/03 i S a constant the exponent for G is l/a z . 
For a function / with a trie riti cal -point (TCP) scal- 
ing power a fy and a critical-line scaling power a f , 
the equation analogous to Eq. (6. 18) predicts expo- 
nents a f /a 2 and a f /a 2 . For example, for the stag- 
gered susceptibility Xst = d2 G/dH z 3i , from (6. 16), 

Xst*** 1 ’ 2ff i )/?3 {x 2 /x |2 /ff 3 + ^)(1 -2^1 )/«2 , (6.21) 

and a f = 1 -2a x and a f = 1 - 2a x for this case. Thus 
for all the exponents considered below the numer- 
ators can be appropriately be replaced by a f or a f . 

If the 3 R 0 is approaches along a direction not 
asymptotically parallel to the x 3 axis (i.e. , outside 
the crossover lines), G scales with a power l/a 2 . 

If the Z R X is approached along a line of constant 
* 3 , in the plane x t = 0 Eq. (6. 18) shows that G has 
an exponent l/<z 2 . This is expected, of course, 
since G has an exponent l/a 2 for any point (i. e. , 
fixed * 3 ) on the line z R l even when the point is far 
away from the 3 R Q [see Eq. (6. 8)]. 

In Sec. V, exponents were demonstrated in terms 
of the scaling powers a { [Eqs. (5. 13)] and the same 
can be done here for the Z R X (exponents in terms of 
a { ) and the 3 R 0 (exponents in terms of the a { ) sepa- 
rately. The only new exponents, which will be de- 
rived, are exponents for the directions of approach 
to the 3 R q along y 2 = constant and these give expo- 
nents of the form 

/~ |* 3 | 5 / /5 3 . (6.22) 

These can be related to exponents of approach 
along directions of type 2 by relations of the form 

~ ( a f! ^i)/ V • (6.23) 

These are new predictions of scaling specific to 
tricritical points [the others are analogous to Eq. 
(5.13)]. 7(c) 

Finally, we emphasize the importance of expres- 
sing the scaling relations in terms of invariants. 
For example, Eq. (6. 21) may be written in the 


alternative “mixed- exponent form ” 


Xst oc C(* 2 + fe*J / T r , 

(6.24) 

where 


Coc j<^>/. , 

(6.25) 

with 


1 - 2a, _ 1 - 2a, 

-* = ^’ ~ y= 

(6.26) 


Expressions (6.24) and (6.25) appear more compli- 
cated than they actually are. The exponents are 
actually not mixed when expressed in the invariant 
from as shown in Eq. (6.21). 
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APPENDIX A: PROOF OF THEOREM 1 


Theorem 1. Consider a one-parameter continu- 
ous group of transformations 

S: *|=/|(x|* *»). (Al) 

where i = 0, 1, . . . , n. There exist n functionally 
independent absolute invariants of the x { (i = 0,1, 

Proof of theorem 1. Consider a function F(x 0 ', 
x [ , . . . , Assume the derivatives of f { with re- 

spect to X exist. We expand F(* 0 ', x[ y . . . , x') in a 
Maclaurin series 

^(* 0 , *i> • • • f x n)~f+f (6A) + 2y (^X) 2 + • • • , 

(A2) 

where 


f=Ffr o, • • • i X n) f 

= vp ( x o, * 1 , • • • » x„) , 

=y!LF ^o, Xu •••,*„)> 


(A3) 


with X 0 the value of X corresponding to the identical 


transformation and 



(A4) 


(A5) 

If, therefore, F(p 0 , x lf 

, . , x n ) is an absolute in- 


variant of the group S, then 

Fbo, x[, ...,x') = F(jc 0 , (A6) 

The necessary and sufficient condition for F = const 
is that 


rF -S ! ‘(^h- (A,) 

Thus, F is a solution of the partial differential 
equation (A7) and consequently, F(r 0 , x lt . . . , x n ) 

= const is a solution of the system of the equivalent 
ordinary differential equations 


dx Q _ dXj _ _ dx n 

to = = ' = in ' 


(A8) 


These equations admit n independent solutions (first 
integrals) 30 ’ 31 and theorem 1 is proved. 


Theorem 2. If the equation 
x 0 X Zi •••>*■«) (Bl) 

is invariant under 

U 0 = /(M*o), 

8 s (B2) 

l^ x i = f {{x\xi, x 2, • • • , X n ) , 

then it can be expressed as 

= ^o^if yzf • • • » ^n-i) » (B3) 

where (y 0 , . . . , y„ ml ) form a set of functionally 

independent absolute invariants under S, with 


and (y if y 2 , ... , y„-i),the n - 1 functionally indepen- 
dent absolute invariants of 8 s . 

By hypothesis, y Q is an absolute invariant of ( x 0 ; 
x l9 . . . , x„) of 8. Thus, (B3) implies that the in- 
variant equation (Bl) may be written 

x n ) = Y 0 {y u y z , 1 ). (B4) 

Since (y lt y 2t . . . , y^) form a basis set of func- 
tionally independent absolute invariants of (r lf * 2 , 

. . . , x n ) of 8 s , (B4) is equivalent to the statement 
that Xq is expressible as an implicit function of 

y o(*o;*l,*2, ••• 9 Xn)=8toltXz, .••,*„), (®5) 

where g is an absolute invariant of (x lt x 2 , . . . , x n ) 
under 8 s . 

Before we launch into the proof of the theorem, 
we give a proof of the following lemma. 32 

Lemma. A necessary and sufficient condition 
for x Q , implicitly defined by (B5), as a function of 
(x lf x 2 * • • • * X J> to be the same function as Xq of 
(x{t x 2 » • • • , x „) implicitly defined by 

yobo, X U X L • • • > X n) =g’bl, X L ■ • • . *n') ( B6 ) 

is that g is an absolute invariant of (x lf x 2 , . . . , x„) 
under 8 s . 

Proof of lemma. Since y 0 is an absolute invari- 
ant of 8 , we have 

y 0 (*o; *i, =:vo(*o; *!, x i • • • , *!,)• 

(B7) 

Since we require x 0 (^ lt x 2 , . . . , x n ) to be exactly the 
same function as Xo(*i, x z> • • • > *n)> (B5)-(B7) re- 
quire that 

£■(*1, *2, • • • , x „) = £'<*{, x i x n) 

xi xi). (B8) 

This is the necessity proof. 

We now demonstrate (B8) is sufficient to ensure 
(B5) and (B6) admit an invariant solution such that 
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x 0 (x lf x z , . . . , x n ) is exactly the same function as 
xfai x 2i , Xn). Inverting (B5) and (B6), we obtain 

*o(*i, x z, • • • , x„) = h{g- x u x z x„) , 

(B9) 

*£(*!• X Z, • • • > x 'n) = h '(g'-, Xl, X Z x n) , 

in some neighborhood of the x z , . . . , x n ) and 
( x[ 9 x 2 , ...» x') spaces, respectively. It is obvious 
that h(g;x ly x 2) . . . ,x n ) is exactly the same function 
as h' (g[; x[,x 2 , . . . 9 x' n ). But, by hypothesis, 
g(x l9 x 2) . . . , x n ) is exactly the same function as 
g'bifXz, Therefore, x 0 fa u x 2 , . . .,x n ) is 

exactly the same function as Xq(x[, x 2 , . . . x n ). 

Proof of theorem 2. Using the lemma and the 
fact that g(xi, x 2 , . . ., x n ) in (B5) is an absolute in- 
var i ant of (xi , x 2f ... , % n )underS s , we immediately 
verify the statement of theorem 2. 

APPENDIX C: PROOF OF THEOREM 3 

Theorem 3. Consider a one-parameter continu- 
ous group of transformations S: 

l Xq = \x 0 , 

S< (Cl) 

(*<' = /< 00*1 , < = 1, 2, ..., n. 

If 

x 0 = F(x u x 2 , ..-,x n ) (C2) 


is an invariant equation under 9, the most general 
form for f { (\) is A a <, where a { are constants. 

Proof of theorem 3. We transform (C2) by 
means of (Cl) for two successive values of A = A lt 
^2> 

AiA 2 ^ 0 = i r [/i(Ai)/i(X 2 )Ari, f 2 (\)f 2 (\ 2 )x 2t 

fnkl)fnb*)*n]f (C3) 

and again for the value of X = A 1 A 2 , 

AiA 2 ^ 0 = -F[/l(^1^2)*l> /a(^1^2^2» • • • » / n (^1^2)^ff] • 

(C4) 

These results are to hold for all values of x { . 
Setting x 2 = x 3 = • • • = x n = 0 , we have f rom (C3 ) and 
(C4) 

F[fAi)fAz)Xu 0 0] = F[/ 1 (X 1 X 2 )^ 1 ,0, 0]. 

(C5) 

Therefore, 

/i(Ax)/i(A 2 ) = /i(A 1 A 2 ) . (C6) 

The solution 33 of the functional equation for f x ( A) 
for A > 0 is 

/i(A) = A fl i, (C7) 

where a x is a constant. This process may be re- 
peated for each f x ( A), i- 1,2, . . . , n. Thus, theo- 
rem 3 is proved. 
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interaction strengths in the Hamiltonians. In the figures, it is 
denoted by 6{=J SR /J LR . This variable is “fieldlike” because 
the CXS and CRS in the space including (R have the same 
properties as in spaces of fields. 

l9 An exact analysis of an Ising model with several staggered 
fields requires consideration of a regularly repeating block of 
spins. The length of the block will be equal to the lowest 
common multiple of the wavelengths of the various staggered 
fields. If staggered fields of wavelengths 2 and 3 had been 
chosen, there would be six spins in a block, but with 
wavelengths 2 and 4, there are only four spins per block. The 
analysis for a block of n spins proceeds by multiplying 
together n transfer matrices and so H 2 and H 4 give the 
smallest number of matrices to multiply. 

20 Our ideas of using the invariant theorems of continous groups 
of transformations for multicomponent scaling were first 
presented at the MIT Summer School on Critical Phenomena 
in 1971 (unpublished). Recently, important advances have been 
made by Wilson, Fisher, Wegner, Riedel and others in 
generating the scaling exponents using the linearized 
renormalization group equations. It was shown that the 
scaling fields may be deduced from the relevant operator 
densities. The number of references to work utilizing the 
renormalization group now exceeds 100, and the reader is 
urged to consult K. G. Wilson, Phys. Reports (to be 
published) or Cooperative Phenomena Near Phase Transitions: 

A Bibliography with Selected Readings , edited by H. E. 

Stanley (MIT Press, Cambridge, Mass., 1973). 

2 'This form of the scaling hypothesis has been treated in detail 
by A. Hankey and H. E. Stanley [Phys. Rev. B 6, 3515 
(1972)]. It is a more complete discussion of the statements of 
the hypothesis previously used by Riedel and Wegner (Refs. 3 
and 4) and also by Kadanoff (Ref. 2c). For a complete set of ref- 
erences, see Cooperative Phenomena near Phase Transitions: A 
Bibliography with Selected Readings, edited by H. E. Stanley 
(MIT Press, Cambridge, Mass., 1973). 

22 The elements of the group are parametrized by the single 


parameter X. Thus the group is a one-parameter group. 

23 A more-general linear transformation will be x, =f (X)x, . 
Because of the associativity property of groups, it can be 
shown that f(\)—\ at [Appendix C]. If some of the x, do 
not scale and serve only as “inactive parameters” in Eq. (5.6), 
the corresponding scaling powers are equal to zero. 

24 We could, of course, replace H st by x { in Eq. (5.9), but we 
emphasize that (cf. Fig. 12) the only thermodynamic field axis 
which is a strong direction is H it . Thus while the direction 
H st +e(H —H c ) or //„ -fe(T — T c ) are both strong and 
3/3//. t is the same as 9/dx, , 3/37\ and 3/3H are only 
equivalent to differentiating with respect to x 2 . 

25 Here we will formulate the scaling hypothesis only for the 
Gibbs function, because the scaling equation analogous to 
(5.1) for other functions can be obtained by appropriate 
differentation with respect to its independent variables. Scaling 
functions for physcially more interesting functions like M and 
X can then be obtained by the same method used here for G . 

1 26 Equations (5.14) can all be written in terms of \ H —H e (T) 1 
except at the Neel point, where the line of critical points is 
parallel to the H axis. 

^Occasionally, it turns out to be appropriate to scale with 
respect to a variable which is not tangent — see, e.g., Paper II. 
This is also true when all the 2 R , do not end up parallel 
and the tangent variable for one line is not the tangent 
variable for another line. We emphasize that scaled equations 
may change their values or functional forms when the scaling 
variables change signs. 

28 “Mutually consistent” means that if one chooses two different 
sets of axes for scaling, one set (x,, x 2 , xj with reference to 
a line L and the second (x x 2 \ x 3 ') with repsect to L 
then the second set is none other than a permutation of the 
first set. 

29 Our expression differs from that given in Ref. 7 [Eq. (8)], 
where the constant k is not present. The constant k is 
needed to ensure the divergence property of x s t ( ancl other 
second derivatives of G) along the critical line. 

30 L. P. Eisenhart, Continuous Groups of Transformations 
(Princeton U. P., Princeton, N.J., 1933). 

31 L. S. Pontryagin, Ordinary Differential Equations 
(Addison-Wesley, Reading, Mass., 1962). 

32 A. J. A. Morgan. Q. J. Math. 2, 250 (1952). 

33 J. Aczel, Lectures on Functional Equations and their 
Applications (Academic, New York, 1966). 
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We introduce invariants of the scaling equation about the tricritical point. Using these invariants, a 
modified version of the scaling hypothesis about the three critical lines meeting at the tricritical point is 
presented. From it we demonstrate that the thermodynamic equation of state near a tricritical point 
and near a critical line may be expressed as double-power scaling functions. These imply that 
experimental data should collapse from a volume onto a line (i.e., by two dimensions). This behavior 
is in contrast to ordinary “single-power” scaling functions, which predict data collapsing from a volume 
onto a surface or from a surface onto a line (i.e., by one dimension). 


I. INTRODUCTION 

There have been recent experimental measure- 
ments 1 near tricritical points 2 (TCPs) in metamag- 
nets, NH 4 C1, and 3 He- 4 He mixtures . 1 These data 
have been partially interpreted recently in terms 
of scaling arguments in which one makes not one 
but two scaling hypotheses . 3 " 5 Riedel and Wegner 6 
were perhaps the first authors to note that in re- 
gions for which two scaling hypotheses are simul- 
taneously valid, double -power -law behavior of cer- 
tain functions results. In this work we present a 
variation of scaling for tricritical points, utilizing 
generalized homogeneous functions 7 (GHF’s) of in- 
variants of the scaling equation about the tricritical 
point. We obtain, in regions near a critical line 
and a tricritical point, double -power scaling func- 
tions which permit data to collapse from a volume 
onto a line, in contrast to the behavior of single - 
power scaling functions, which permit data to col- 
lapse by only one dimension (e. g. , from a surface 
onto a line, or a volume onto a surface). 

Before we can proceed to make the scaling hypo- 
thesis for a TCP, it will be necessary to determine 
the relevant directions for scaling . 3 The three 
thermodynamic fields (T, temperature; 77 , order- 
ing field; and^, nonordering field) near a TCP are 
believed to constitute an affine space in which di- 
rections may be defined by parallelism only. A 
TCP is a point of intersection of three critical lines 
in this three-dimensional affine space (cf. Fig. 1). 

At each point P on a critical line, three different 
types of directions can be established. The first 
direction, x x (P), is a direction not locally parallel 
to the coexistence surface. The second, x 2 (P), is 
locally parallel to the coexistence surface but not 


parallel to the critical line. These are the “strong” 
and “weak” directions of Griffiths and Wheeler. 8 The 
third direction, x 3 (P), is locally parallel to the 
critical line. 

As the point P moves toward the TCP, these di- 
rections attain limiting orientations. Since there 
are three critical lines terminating at a TCP, 
three “rival” sets of directions of this type exist 
at the TCP. It has been shown 4 that if scaling holds 
at a TCP, these three sets of directions are equi- 
valent. Thus, we choose the relevant directions 
for scaling at a TCP as x^lin i(P- TCP )x i (P), 
where P is a point on the critical line L x (see Fig. 

I ). 9 

II. SCALING HYPOTHESIS FOR TCP 

Having ascertained the relevant scaling direc- 
tions x { for TCP, we now introduce a scaling pa- 
rameter X (>0) and make the homogeneity hypothe- 
sis 3-7 that the singular part of the Gibbs potential 
is asymptotically a GHF, 

G(\ ai x lf \ z x 2 , X a3 x 3 ) = XG(x!, x 2 , * 3 ), (*) 

where ~a { are the scaling powers. Equation (1) is 
equivalent to the statement that 

G = F 3 (x t , x z , * 3 ) (2) 

is an invariant equation under the one -parameter 
(X) group (S 3 ) of transformations 

G'=\G, xl=\ Si x t , (i= 1,2,3). (3) 

In other words, under the transformations, Eq. (2) 
becomes G' = F 3 (x[, x' z , 

The group S 3 admits a basis set of three (i = 0, 

1 , 2 ) functionally independent absolute invariants, 
yi(G',x{, *2r xl) = yi(G,x lf x 2 , x 3 ), such that all 
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FIG. 1. Schematic phase diagram showing a TCP 
(atT=T t ). Shaded areas are coexistence surfaces. At 
a point P on L lt a triad of directions x { i P) are shown. 

This triad becomes x { at TCP. 

other absolute invariants are expressible in terms 
of these. One such basis set is 

Vo^G/x'f 3 , yi*VV t/?s , • (4) 

The scaling hypothesis, Eq. (1), requires Eq. (2) 
to be expressible in terms of the basis set as a 
“single -power” scaling function, 

yo=Fthi, yz) , (5) 

which states that G (and other thermodynamic func- 
tions), when appropriately scaled, are functions of 
the invariants (y ly y 2 ) alone. This result allows 
data near a TCP to collapse from a volume onto a 
surface . 


We remark that, using Eq. (1), it is possible to 
determine all exponent relations and “single -pow- 
er” scaling laws for a TCP . 3 ” 5 

III. GEOMETRY OF SURFACES AND CURVES NEAR TCP 

Since the quantities y x and y 2 defined in Eqs. (4) 
form a basis set of functionally independent abso- 
lute invariants of x { under the group of transforma- 
tions x{=\ 0t x { , points in the invariant (y i9 y 2 ) 
plane give rise to invariant curves in the (x x , x 2 , 

* 3 ) space. We have seen that the scaling hypothesis 
requires scaled thermodynamic functions near a 
TCP to depend on ^ and y 2 only. This implies that 
each of the three critical lines near the TCP can be 
expressed as a point = in the (y 1 ,^ 2 ) plane, 
where k { are constants. 

Usually, for systems exhibiting a TCP, one of 
the critical lines is a planar curve lying entirely in 
the (g , T) plane (e.g. , L x of Fig. 1). Since *i = 0, 
Eq. (4) implies that L x is given by (y x , y 2 )= (0, - k ) 
in the invariant plane. 

Near L x , it is expected that the symmetry prop- 
erty of the critical line will also influence the as- 
ymptotic form of the thermodynamic functions. 

The region of influence is bounded by some “cross- 
over” curve, / x (y 1( y 2 ) = 0 [Fig. 2(a)], or 

/x(* 1 / * 3 ai/ °3 » xz/xfz'^) = 0, (6) 

which is a conical surface surrounding L x in the 
(x x> x 2 > * 3 ) space [Fig. 2(b)]. Scaling cannot tell 
us the actual shape of the curve in the (y x , y 2 ) 
plane, 10 but it does limit the shape of the conical 
“crossover” surface in the (x i9 x 2f x 3 ) space, 
since all points in the (y x , y 2 ) plane give rise to 
curves approaching the TCP along the x 3 axis (cor- 
responding to the minimum a { ). 11 

IV. DOUBLE-POWER SCALING FUNCTIONS FOR L y 

We now proceed to deduce the restriction on the 
asymptotic form of the thermodynamic functions 
near a TCP adjacent to the critical line L x . 12 
Along L ly the conventional scaling hypothesis is 



curve 
(a ) 


*2 



FIG. 2. (a) Invariant Oyq, y 2 ) 
plane. The strong and weak direc- 
tions for Lj are y\ and y 2 , and the 
crossover curve is shown (Ref. 8). 
(b) Principal points of interest of 
(a) in the (x t , * 2 , * 3 ) space. 
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normally stated in terms of a GHF equation 

G(ii ai x x , [l z x z : 7 x 3 ) = iiG(x l9 x 2 ; x 3 ), (7) 

where fi(> 0) is an arbitrary parameter, a x and 
a 2 are the scaling powers for L x> and x 3 is an “in- 
active” variable which does not scale. _Near the 
TCP, by Eq. (5) the value of y 0 = G/x\ /az changes 
only if the values y x and/or y 2 change. It is much 
better therefore to make a scaling hypothesis 
about L x near the TCP using y x and y 2 . 13 

Since the coexistence surface bounded by L x maps 
into the vertical axis of the (y l9 y 2 ) plane, the di- 
rection y x is strong and y 2 is weak. Thus, we de- 
duce that the proper scaling variables for L x (near 
the TCP) are 

yi-yi, yz=yz+k; (8) 

these vanish at the line (y X} y 2 )= (0, -k). 

We now hypothesize that along L x near the TCP, 
y 0 =y Q is a GHF of (y^ y 2 ): 

l yi, M° 2 y2) = M5'o(5'i, h)- (®) 

In other words, instead of (7) we postulate that 

yo= F z(yi, y*) do) 

is an invariant equation under the group (8 2 ) of 
transformations {y>o= ^y Qf y x = ^° l y Xy and y 2 = n z y 2 ). 

By the same reasoning used for the derivation of 
Eq. (5), we see that (9) requires that (10) may be 
written in the form 

z 0 =F x (z x ) , (11) 

where z^yjy l 2 az and z x = y x /y a 2 ,az form a set of 
functionally independent absolute invariants of 82 
and therefore of the variables G, x x , x 2f x 3 under 
the direct-product group 82^83 • 

Reexpressing Eq. (11) in terms of the original 
variables G, x x , x 2f and x 3 we obtain the “double - 
power” form 14 

— I TT = Fi(-rZ r~. V 

x\ ,a *{x 2 /x 2 a * ,a * + k) l,a * \W /a *(x 2 /x 2 a 2 /a 3 + k) a l ,a zj 

( 12 ) 

Equation (12) predicts that near the TCP and L x , 
data will collapse from a volume onto a line. 

Clearly, this happens only within the crossover 
cone of Eq. (6) [cf. Fig. 2(b)]. 

In the plane x x =0 [i. e. , the (g , T) plane], Eq. 

(12) requires 15 

G~x 2 l/ *Hx 2 /x 3 °2'°s + k) 1,a z , (13) 

and the conical surface of Eq. (6) becomes two 
crossover lines (cf. Fig. 3) x 2 = C { x 3 Sz/s 3 or y 2 =C if 
where i= 1, 2. The crossover exponent (p = a 3 /a 2f 
which determines the shape of the crossover lines, 
can be obtained directly from the shape of L x . 3 



FIG. 3. Figure 2(b) sliced in the x x = 0 plane. The 
crossover lines are labeled y 2 = ^, C 2 . The projection 
of 3c 2 + fc* 3 2/S3 along the T axis is T- T c (g), and (f, g) 
MT-T„ g-g t ). 


V. EXTENSIONS AND CONCLUDING REMARKS 

The entire discussion in this paper may be ex- 
tended to the scaling of any thermodynamic func- 
tion /. For example, for the staggered suscepti- 
bility x s t= a 2 G/977 2 oc 9 2 G/8 *i (or 8 2 G/8 *i) and the 
direct susceptibility x = 9 2 G/ 8 ^ 2oc 8 2 G/ dx 2 (or 8 2 G/ 
dx 2 ) of a metamagnet, the expression analogous to 
Eq. (13) is 

f i = -.n.zs { >/s 3 + , ( 14 ) 

where /i = x s t and fz = X- We note that Ec l* ( 13 ) has 
the appropriate divergence properties at the criti- 
cal line and at the TCP. 

Finally, we make a few remarks about the expo- 
nents and directions of approach toward the TCP 
and L x . Using the experimentally accessible func- 
tion x s t as an example, we note that if we approach 
the TCP along a curve ~x 2 fx 2 2/ ^ 3 = const, the scaling 
exponent is -y at <P“ 1= (1 - 2a x )/a z . If we approach 
the critical line L x along a line x 3 = const, the scal- 
ing exponent is - y at = (1 - 2 a x )/a 2 as expected. On 
the other hand, if the TCP is approached along a 
path outside the crossover lines, x a t scales with 
an exponent - y st = (1 - 2 a x )/a 2 . Similar remarks 
may be made with respect to the three-dimensional 
“double -power” scaling functions of Eq. (12). 

Equation (14) may be cast in “mixed -exponent” 
forms; e.g. , x a t ~C[T - T c (g)]' r *t, in which x 2 
+ fcxj 2/33 has been replaced by its projection along 
the T axis (Fig. 3), and C~x 3 Yai “ rai)/ * is the 
asymptotic amplitude. Depending on the relative 
magnitudes of y 3t and y at , the asymptotic amplitude 
may diverge, vanish, or stay constant as the TCP 
is approached within the crossover cone. 
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The ideas of this work provide the basis of a 
formulation of the scaling hypothesis near critical 
points that are more complex than tricritical points 
For these points, the direct product of more than 
two groups of scaling transformations arises natu- 
rally. A detailed account of this extension will be 


published elsewhere. 
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